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A METHOD TO ESTIMATE WEIGHT AND DIMENSIONS OF 
AIRCRAFT GAS TURBINE ENGINES 
Vol III — Programmers-Manual 

By R. J. Pera, E Onat, N L. Prewitt, G. W Klees, E Tjonneland 


1.0 SUMMARY 

The purpose of this volume is to aid the programmer responsible for maintaining the computer code 
for weight estimating (WATE-1). A User’s Manual (CR 135 171) and Method of Analysis 
(CR135170) are also available which describe the operation and use of WATE-1. 


Included in this volume are program checkout cases in Appendix A starting on Pg. A1 
and Fortran Listings in Appendix B, starting with Pg B1 An Index of material con- 
tained in each appendix is given on Pg A1 and B1 


The code is in FORTRAN IV and has been checked out on IBM 370/168. The code is single pre- 
cision except for the values m the Navy-NASA Engine program (NNEP). The code was designed to 
minimize conversion requirements to other machines. 

1 no subroutines are required beyond those in the IBM FORTRAN IV manual, and 

2 there is no character manipulation, only full word tests are used when testing BCD input 

The NNEP/W ATE-1 code requires 75B48] g core (4821 20 j q bytes) to run without buffers The 
execution of a design point followed by a weight estimation and printer plot is 4 seconds CPU time, 
using an existing load module (all data reference 370/168) 


2 



2.0 CONVERSION FACTORS 

The array CONVER m common CONVER are conversion factors to convert English units to SI 
units. 


ARRAY # 

VALUE 

UNITS 

ENGLISH 

to 

UNITS 

SI 

1 

2.54 

inch 


cm 

2 

.3048 

feet 


meter 

3 

.4536 

Ibm 


K g 

4 

0929 

ft 2 


meter 2 

5 

02768 

lb m /m 3 


Kg/cm 3 

6 

.689475 

lbf/m 2 


Newton/cm 2 

7 

4 882 



Kg/m 2 

8 

.555 

°R 


OK 

9 

1 05435 

BTU/sec 


K WATTS 

10 

07457 

HP 


K WATTS 

11 

47 88 

lbf/ft 2 


Newton/m 2 


3.0 DISCUSSION 

3. 1 Program Structure 

The execution flow was designed to minimize the interaction of the basic NNEP program and the 
weight estimation routines. The only data flowing between the two is via the common blocks 
SNGL and DBL and the variables IWT and IPLT The subroutine THERM is used to obtain thermo- 
dynamic properties of the fluid. An assumption is made that the thermodynamic properties are 
established at each station prior to calling WTEST subroutine. 

Routine WTEST acts as a control routine which calls the component routines. These component 
routines are independent of each other although some use the same lower level routine as some 
other component routine After all weights and dimensions have been estimated routine ENGPLT 
is called to make the printer plot For a description of subroutine connectivity, see Figure 1 
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DUCTW 
STHERM 
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TURB 
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EFFD 


STHERM 


THERM 


DUCT 


STHERM 


THERM 


DUCT! 


TMECH 


STRESS 


STHERM 

["therm 

DUCT1 


TURWT 


FRAME 


NNEP 


i 


WATE -1 


▼ T T ▼ ▼ 


SHAFT WMIXR WTNOZ WSPLT 


ENGPLT 
| NPPNT 
DTRAP 


| NPPNT 


Figure 1 Diagram of Subroutine Connectivity 


3.2 Data Flow 

The following variables in NNEP common blocks may be referenced by a component weight esti- 
mating routine depending on the component type. DATOUT, WTF, TOPRES, TOTEMP, FAR, 
CORFLO, JCONF, JTYPE, NCOMP, NOSTAT, NFINIS. In no case is any value changed by the 
weight estimation code. Each call to WTEST routine will cause a NAMELIST read of “W” data 
(see User’s manual) This is the one and only read m weight estimation code Based on the infor- 
mation in NCOMP and JTYPE the proper component routine is called with the component number 
(I) as an argument. Each component is expected to fill WATE (I), ALENG (I), TLENG (I), R0 (1,1), 
R0 (2,1), RI (1 ,1), RI (2,1) Rotating components also fill RPMT (I). The shaft component fills 
DSHAFT (N) where N is the shaft count from the inside out. The meaning of these variables is 
covered in the User’s Manual. 


3.3 Program Checkout 

The concept for program testing is to use one definition through NNEP and then vary the weight 
data so as to execute all the subtypes of components In the case of rotating/fixed splitters, these 
were tested using a namelist read program instead of NNEP to fill the common blocks The check- 
out results are shown in Appendix A 
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i rw\n 


FALSE 



TRUE | INITIALIZE 

OUTPUT ARRAYS 


READ INPUT 


NAMPR 



PROCESS LENGTH CONTRIBUTING VECTOR 1LENG 


WMIXR 


COMBWT DUCTW 


ACCUME LENGTH IN DOWNSTREAM NODE FOR PROCESSED COMPONENTS 


SET SECONDARY UPSTREAM NODE ACCUMULATED LENGTH IF IT EXISTS 


SET ENGINE LENGTH 


PROCESS REMAINING COMPONENtS EXCEPT DUCTS. SHAFTS, & NOZZLES 


WTNOZ 

WSPLT 


WMIXR COMBWT 


WSPLT 


PROCESS DUCTS 

► 

DUCTW 

ir 


PROCESS NOZZLES 

► 

WTNOZ 


ACCUME LENGTH OF REMAINING COMPONENTS 


PROCESS SHAFTS 


SEARCH RO FOR MAXIMUM RADIUS PUT IN XR 


SUM COMPONENT WEIGHTS TO GET ENGINE WEIGHT IN WATENG 


MAKE COMPONENT PRINT IF REQUIRED IN CORRECT UNITS 


MAKE SUMMARY PRINT IN CORRECT UNITS 


10000 


FALSE 


TRUE 


ENGPLT 


RETURN 


Figure 2 Functional Flow Chart of WTEST 
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APPENDIX A — Results of Program Checkout 


Section Page 

WATE-1 Input Checkout Example 1 — SI Units A-2 

WATE-1 Output Checkout Example 1 - SI Units A- 5 

WATE-1 Input Checkout Example 2 — Default Inputs A-14 

WATE-1 Output Checkout Example 2 — Default Inputs A- 17 

WATE-1 Input Checkout Example 3 ~ Weight Scaler A-26 

WATE-1 Output Checkout Example 3 — Weight Scaler A-29 

WATE-1 Input Checkout Example 4 - Compressor and Turbine Mode Changes A-38 

WATE-1 Output Checkout Example 4 — Compressor and Turbine Mode Changes A-4I 

WATE-1 Input Checkout Example 5 — Mode Changes A-50 

WATE-1 Output Checkout Example 5 — Mode Changes A-53 



TABLE DATA INPUT SUMMARY 16 TABLES 



TABLE NUMBER REFERENCE NUMBER ARRAY LOCATION 


1 

3761 

1 

2 

3762 

1075 

3 

3763 

2149 

4 

3704 

3223 

5 

3705 

4297 

6 

3706 

5371 

7 

3707 

6445 

8 

3708 

7681 

9 

3709 

8917 

10 

3801 

10153 

11 

3802 

10606 

12 

3803 

11203 

13 

3804 

11656 

14 

3901 

12397 

15 

3902 

12799 

16 

3903 

13213 


DATA STORAGE ALLOCATION 20000 
DATA STORAGE NOT USED 6385 


& D M0DE=1, 


I WT=T , 

KONFIG( If 1 ) = ' INLT* ,1,0, 2,0, SPECt 1 , 1 ) = 23 8. 5 ,4*0, 0. 9 , 

KONFIGt 1,2) = ' COMP* ,2,0,4, 0, SP EC ( 1 , 2 ) = 1. 8 , 0, 1 , 3761, 1, 3762, 1 , 3763, 1 , 0, 0 » . 87 , 2 . 86 , 
1 , 

KONFIGt 1*4J=' DUCT' ,11, 0,15, 0, SPEC ( 1,41-6*0, 

KONF IG ( 1,3}=' SPLT* ,4,0,5,11 , $ PEC ( 1 ,3 ) =. 77 , 

KONF IG< 1, 5)=' COMP ',5, 0,6, 7, SPEC (1,5 1=1. 3, .026, 1,3707, 1,3708, 1,3709,1, 0,0,. 87, 

9. 406, .985, 

KONFIGt 1,6)=' DUCT* ,6, 0,8,0, SPECt 1,6 >=.10,0,0, 2650,. 94, 18300, 

KONF IG( 1,7 ) = ' TURB* ,8, 7, 9,0, SPEC! 1,71=4, 1, 1 , 3 801 , 1, 3802, 1,1,1, 1,-86,5680,1, 

KONF IG ( 1,8)='TURB' ,9, 0,10,0, SPEC (1,81 =2. 5, 0,1, 3 80 3, 1,38 04, 1,1, 1,1,. 86,5244, 1 , 

KO NF IG<1, 9)=' MI XR', 10, 15,12,0, SPEC (1,91 =0,0, .24, 

KONFIGt 1,1 01 = ' DUCT* , 12 ,0, 13 , 0 , SPEC ( 1 , 10 1 = .06 ,3*0 , .90 , 18300 , 

KONFIGt 1,11)= 'NOZZ', 13, 0,14,0, SPECt 1,11 )=0,1 ,0,0,. 98,1,0,0,1, 

KONFIGt 1,121= 'SHFT» ,2, 8, 0,0, SPEC (1,12 1=4000 ,8*1, 

KONFIGt 1,131=' SHFT ' ,5,7,0,0,SPEC(1,13! =6000 , 8*1 , 

KONFIGt 1, 14 )='CNTL',SPCNTL( 1, 141=1,8, 'STAP', 8, 13,0, 1, 
K0NFIG(1*15)='CNTL',SPCNTL(1,15)=1,7,'STAP*,8,9,0»1, 

K0NFIG(1,16)='CNTL' , SPCNTLt 1, 161=1,5, * STAP • , 8 , 8 , 0, 1 , 

KONF IGt 1,17 1= ' CNTL • ,SPCNTL( 1,17 1=1,3, 'DOUT* ,8, 9, 0,1, 

KONFIGt 1,181=' CNTL', SPCNTLt 1, 181 = 1 , 2 , ' STAP * , 8 , 5 ,0, 1 , 

KONFIGt 1,191=' CNTL* , SPCNTLt 1, 191=1, 1, ’ STAP ’ , 8 , 2 ,0, 1 ♦ 

KONFIGt 1,20)=' CNTL', SPCNTLt 1,201 =1,12, 'DOUT' ,8,12,0,1, 

KONFIGt 1,211= 'CNTL', SPCNTLt 1,211=1, 13, 'DOUT*, 8, 13,0,1, 

SEND 


THE FOLLOWING REPRESENTS THE CONFIGURATION FOR MGDE= 1 
SIMPLE MODEL 

CONFIGURATION DATA 15 STATIONS 21 COMPONENTS 


COMPONENT NKIND COMPONENT 
NUMBER TYPE 


UPSTREAM 

STATIONS 


DOWNSTREAM 

STATIONS 


A-2 



1 

1 

INLET 

1 

0 

2 

• 0 

2 

4 

COMPRESR 

2 

0 

4 

0 

3 

7 

SPLITTER 

4 

0 

5 

11 

4 

2 

DUCT B 

11 

0 

15 

0 

5 

4 

COMPRESR 

5 

0 

6 

7 

6 

2 

DUCT B 

6 

0 

8 

0 

7 

5 

TURBINE 

8 

7 

9 

0 

8 

5 

TURBINE 

9 

0 

10 

0 

9 

8 

MIXER 

10 

15 

12 

0 

10 

2 

DUCT B 

12 

0 

13 

0 

11 

9 

NOZZLE 

13 

0 

14 

0 

12 

11 

SHAFT 

2 

8 

0 

0 

13 

11 

SHAFT 

5 

7 

0 

0 

14 

12 

CONTROL 

13 

0 

8 

0 

15 

12 

CONTROL 

9 

0 

7 

0 

16 

12 

CONTROL 

8 

0 

5 

0 

17 

12 

CONTROL 

9 

0 

3 

0 

18 

12 

CONTROL 

5 

0 

2 

0 

19 

12 

CONTROL 

2 

0 

1 

0 

20 

12 

CONTROL 

12 

0 

12 

0 

21 

12 

CONTROL 

13 

0 

13 

0 



CONTROL INFORMATION 












14 

VARY 

DAT INP 

1 

OF 

COMPONENT 

8 

SO 

THAT 

STATP 

8 

OF 

FLOW 

STATION 

13 

EQUALS 

0.0 

15 

VARY 

DATINP 

1 

OF 

COMPONENT 

7 

SO 

THAT 

ST ATP 

'8 

OF 

FLOW 

STATION 

9 

EQUALS 

0.0 

16 

VARY 

DATINP 

1 

OF 

COMPONENT 

5 

so 

THAT 

STATP 

8 

OF 

FLOW 

STATION 

8 

EQUALS 

0.0 

17 

VARY 

DATINP 

L 

OF 

COMPONENT 

3 

SO 

THAT 

DATDUT 

8 

OF 

COMPONENT 9 

EQUALS 0. 

0 

18 

VARY 

DATINP 

1 

OF 

COMPONENT 

2 

SO 

THAT 

STATP 

8 

OF 

FLOW 

STATION 

5 

EQUALS 

0.0 

19 

VARY 

DATINP 

1 

OF 

COMPONENT 

1 

so 

THAT 

STATP 

8 

OF 

FLOW 

STATION 

2 

EQUALS 

0.0 

20 

VARY 

DATINP 

1 

OF 

COMPONENT 

12 

so 

THAT 

DAT OUT 

8 

OF 

COMPONENT 12 

EQUALS 0. 

0 

21 

VARY 

DATINP 

1 

OF 

COMPONENT 

13 

so 

THAT 

DATOUT 

8 

OF 

COMPONENT 13 

EQUALS 0. 

0 


CASE IDENTIFICATION 


SIMPLE MODEL 



A-4 


INPUT DATA 


COMPONENT 


NO. 

TYPE 

DAT1NP1 


DAT I NP2 


DATINP3 

0ATINP4 

DATINP5 

DATINP6 

DATINP7 

DATINP8 

DAT I NP 9 

1 

INLET 

0.238500 

03 

0.0 


0.0 


0.0 


0.0 


0.90000D 

00 

0.0 


0.0 


0.0 


2 

COMPRESR 

0. L8000D 

01 

0.0 


0. 100000 

01 

0.37610D 

04 

0.10000D 

01 

0.376200 

04 

0. 10000D 

01 

0.37630D 

04 

0. lOOOOD 

01 

3 

SPUTTER 

0.770000 

00 

0 .0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


A 

DUCT B 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


5 

COMPRESR 

0. 13000D 

01 

0.260000- 

01 

0.100000 

01 

0.37070D 

04 

0.10000D 

01 

0.370800 

04 

0. lOOOOD 

01 

0.370900 

04 

0. lOOOOD 

01 

6 

DUCT B 

0.10000D 

00 

0.0 


0.0 


0.265000 

04 

0.94000D 

00 

0.18300D 

05 

0.0 


0.0 


0.0 


7 

TURBINE 

0. 400000 

01 

0.10000D 

01 

0. 100000 

01 

0.380100 

04 

0.10000D 

01 

0.38020D 

04 

0. lOOOOD 

01 

0.100000 

01 

0. lOOOOD 

01 

8 

TURBINE 

0.25000D 

01 

0.0 


0 . 10000D 

01 

0 .38030 D 

04 

0.100000 

01 

0.380400 

04 

0. lOOOOD 

01 

0. lOOOOD 

01 

0. lOOOOD 

01 

9 

MIXER 

0.0 


0.0 


0.240 OOD 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


10 

DUCT B 

0.600000- 

■01 

0.0 


0.0 


0.0 


0.900000 

00 

0.183000 

05 

0.0 


0.0 


0.0 


11 

NOZZLE 

0.0 


0.10000D 

01 

0.0 


0.0 


0.98000D 

00 

0.10000D 

01 

0.0 


0.0 


0. lOOOOD 

01 

12 

SHAFT 

0i4000QD 

04 

0.10000D 

01 

0.10000D 

01 

0.100000 

01 

0.100000 

01 

0.100000 

01 

0. lOOOOD 

01 

0. lOOOOD 

01 

0.100000 

01 

13 

SHAFT 

0.60000D 

04 

0.100000 

01 

0.10000D 

01 

0.100000 

01 

0.10000D 

01 

0.100000 

01 

0. lOOOOD 

01 

0. lOOOOD 

01 

0. lOOOOD 

01 

14 

CONTROL 

0.0 


0.0 


0.0 


0.10000D 

01 

0.0 


0.80000D 

01 

0.0 


0.0 


0. lOOOOD 

01 


15 

CONTROL 

0.0 

0.0 

0.0 

0. lOOOOD 

01 

0.0 

0.80000D 

01 

0.0 


0.0 

0. LOOOOD 

01 

16 

CONTROL 

0.0 

0.0 

0.0 

0. lOOOOD 

01 

0.0 

0.80000D 

01 

0.0 


0.0 

0. LOOOOD 

01 

17 

CONTROL 

0.0 

0.0 

0.0 

0.100000 

01 

0.0 

0.0 


0.800000 

01 

0.0 

0. LOOOOD 

01 

18 

CONTROL 

0.0 

0.0 

0.0 

0. lOOOOD 

01 

0.0 

0.80000D 

01 

0.0 


0.0 

0.100000 

01 

19 

CONTROL 

0.0 

0.0 

0.0 

0. lOOOOD 

01 

0.0 

0.800000 

01 

0.0 


0.0 

0. lOOOOD 

01 

20 

CONTROL 

0.0 

0.0 

0.0 

0. lOOOOD 

01 

0.0 

0.0 


0. 800000 

01 

0.0 

0. lOOOOD 

01 

21 

CONTROL 

0.0 

0.0 

0.0 

0.100000 

01 

0.0 

0.0 


0. 80000D 

01 

0.0 

0. lOOOOD 

01 



MODE 1 NOW BEING USED 
&W 

I PLT=T , 

I S 1 1 = F , 

ISIQ=T, 

IOUTCD=2, 

ILENGt 1)=2,3, 5 ,6, 7, 8, 9, 10,11, 

IWMEC(1,2)='FAN ',1,1, 4, 3*0, 

IWMECC 1,3)='SPLTS6*0, 

I WMEC{ 1,4) =' DUCT 1 ,3,5*0, 

IWMEC ( 1, 5 ) = 1 HPC SI, 2, 4*0, 

IWMEC(1,6)='PBUR' ,1,5*0, 

IWMEC(1,7)='HPT SO, 5, -5, 3*0, 

IWMEC( 1,8)='LPT SI, 2, 7, 3*0, 

IWMECI 1,9)=' MIX ' ,6*0, 

IWMEC<1,10)=* AUG * , 6*0 , 

IWMEC( 1,11)='N0Z *,2,-10, 4*0, 

IWMEC<1,12)=*SHAF*,1, 8, 3*0, 2, 

IWMEC (1,13) = * SHAF* ,2, 7,3*0, 5, 

DESVAL(1,2)=.524,1.7,.45,1.5,3.5,2.5,.45,0.,0.,1.,0.,2.,1., 
DESVAL< 1,3 1=15*0. , 

DESVAK 1,4) =.45, 2*0. ,11. ,11*0., 

DESVAL(1,5)=.45,1.35, .70,1.2,2., 1.5,. 3,0., 0. ,1.,0. ,2. ,1. , 
DESVALI 1,6) =100.,. 015,0., 5. ,11*0., 

DESV AL (1,7)=. 5, *28, 1.5, 1.5, 1.5, .55, 15 00 00. ,3. ,1., 6*0. , 
DESVAL(1,8)=.55, .243 ,1.5,2. ,3., .6, 150000., 3. , 1. ,6*0. , 
OESVAH 1,9) =15*0. , 

DESVAK 1,1 01 = 250.,. 016, 13*0., 

DESVAL( 1,11) = 1. ,14*0. , 

DESVAL ( 1 , 1 2)=50000. , . 3 , . 85, 12*0. , 

DESVAK 1,13) = 50000., .3,13*0., 

£ END 

* # #s{c* 

* * 

* FAN 2 * 

* * 

###*!(<#***:$:** 2 
DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 

0.524 174. 288. 91192. 75626. 0.6458 1.4005 

U TIP STRESS DEN W/AREA TR H/T 

383.7 18448.8 0.005 11.421 1.800 0.450 

COMPRESSOR 2 MECHANICAL DESIGN 

LOADING N STG DIAM U TIP C RPM C PPM 

0.874 3.00 101.54 383.7 7216.9 7216.9 

FRAME WT = 43.40 


A-5 



STAGE 1 


WD 

W8 WS WN 

WC CL 

RHOB RHOD 

AR 




29.3 

26.8 26.8 0.0 

12.018.669. 

00465.00465 

3.50 




PR 

DEL H MACH 

AREA R HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.4789 17.6 0,524 

0.646 22.85 

50.77 59 

3 83 .-7 

1-8449. 

95. 

288. 

STAGE 

2 







WD 

WB WS WN 

WC CL 

RHOB RHOD 

AR 




41.1 

15.5 15.5 22.9 

9.515.697. 

00465.00465 

3.00 




PR 

DEL H MACH 

AREA R HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.4155 17.6 0.499 

0.481 28.00 

48.12 67 

363.7 

13921. 

105. 

327. 

STAGE 

3 







WD 

WB WS WN 

WC CL 

RHOB RHOD 

AR 




43.9 

10.4 10.4 21.0 

8.414.400. 

00465.00465 

2.50 




PR 

DEL H MACH 

AREA R HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.3671 17.6 0.475 

0.373 30.92 

46.30 70 

349.5 

10872. 

94. 

365. 


FRAME WT = 129.34 


N STG WEIGHT LENGTH 

3 466.61 73.15 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.450 177. 404. 260810. 227078. 0.2992 1.3951 

PR AD EF PO TO HP 

2.8600 0.8700260809.8 403.8 1261. 

HI HO WI CWI 

130.69 183.53 108.18 120.20 

******************* TOTAL COMP WEIGHT IS 466.609 


************* 

* * 

* HPC 5 * 

* * 

************2 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.450 177. 404. 260810. 227078. 0.1690 1.3951 

U TIP STRESS DEN W/AREA TR H/T 

391.7 16086.6 0.005 3.356 1.200 0.700 

COMPRESSOR 5 MECHANICAL DESIGN 


LOADING N STG DIAM U TIP C PPM C RPM 
0.651 10.00 64.96 330.9 11515.5 9727.5 

FRAME WT = 53.63 


A -6 


nsui'Y OF ffl* 
PAGE IS P°° R 



STAGE 1 


WD 

WB WS WN 

WC CL RHOB RHOD 

AR 




10.8 

6.5 6.5 16.5 

4.711.40 1.00465.00465 

2.00 




PR 

DEL H MACH , 

AREA R HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.3603 

18.8 0.450 

0.169 22.74 32.48 50 

391.7 

16087. 

45. 

404. 

STAGE 

2 






WD 

WB WS WN 

WC CL RHOB RHOD 

AR 




9.0 

4.0 4.0 13.4 

3.7 9.241.00465.00465 

1.94 




PR 

DEL H MACH , 

AREA R HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.3241 

18.8 0.435 

0.134 23.93 31.61 60 

381.2 

12767. 

34. 

445. 

STAGE 

3 






WD 

WB WS WN 

WC CL RHOB RHOD 

AR 




7.3 

2.6 2.6 11.1 

3.0 7.699.00465.00465 

1.89 




PR 

DEL H MACH 

AREA R HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2948 

18.8 0.420 

0.109 24.76 30.97 70 

373.5 

10375. 

27. 

485. 

STAGE 

4 






WD 

WB WS WN 

WC CL RHOB RHOD 

AR 




6.1 

2.0 2.0 9.5 

2.5 6.560.00465.00465 

1.83 




PR 

DEL H MACH 

AREA R HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2704 

18.8 0.405 

0.090 25.35 30.49 81 

367.7 

8603. 

22. 

525. 

STAGE 

5 






WD 

WB WS WN 

WC CL RHOB RHOD 

AR 




5.2 

1.6 1.6 8.2 

2.2 5.699.00465.00465 

1.78 




PR 

DEL H MACH 

AREA R HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2499 

1 18.8 0.390 

0.076 25.79 30.12 93 

363.2 

7258. 

19. 

565. 

STAGE 

6 






WD 

WB WS WN 

WC CL RHOB RHOD 

AR 




4.6 

1.2 1.2 7.3 

1.9 5.033.00465.00465 

1.72 




PR 

DEL H MACH 

AREA R HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2324 

18.8 0.375 

0.065 26.12 29.83 104 

359.7 

6218. 

16. 

605. 

STAGE 

7 






WD 

WB WS WN 

WC CL RHOB RHOD 

AR 




4.2 

1.0 1.0 6.5 

1.7 4.512.00465.00465 

1.67 




PR 

DEL H MACH 

AREA R HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2173 

. 18.8 0.360 

0.057 26.38 29.60 115 

356.9 

5398. 

14. 

644. 

STAGE 

8 






WD 

WB WS WN 

WC CL RHOB RHOD 

AR 




7.3 

1.4 1.4 5.9 

1.5 4.099.00792.00792 

1.61 




PR 

DEL H MACH 

AREA R HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2042 

: 18.8 0.345 

0.050 26.59 29.41 126 

354.7 

8075. 

18. 

683. 

STAGE 

9 






WD 

WB WS WN 

WC CL RHOB RHOD 

AR 




7.0 

1.2 1.2 5.5 

1.4 3.771.00792.00792 

1.56 




PR 

DEL H MACH 

AREA R HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.1926 

» 18.8 0.330 

0.044 26.75 29.26 136 

352.9 

7176. 

16. 

721. 

STAGE 

10 






WD 

WB WS WN 

WC CL RHOB RHOD 

AR 




6.8 

1.0 1.0 5.1 

1.3 3.509.00792.00792 

1.50 




PR 

DEL H MACH 

AREA R HUB R TIP NB U 

TIP 

STR 

WE IGHT 

TIN 

1.1824 

• 18.8 0.315 

0.040 26.89 29.14 146 

351.4 

6442. 

15. 

760. 



N STG WEIGHT LENGTH 


10 279.63 64-. 60 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.300 166. 798.2453176.2309282. 0.0360 1.3539 

PR AD EF P'0 TO HP 

9.4060 0.8700******** 797.6 2533. 

HI HO W1 CWI 

183.53 371.37 61.12 28.11 

**:M;*************** T OTAL COMP WEIGHT IS 279.634 

+ * :jt % sfe $ * * * 

* * 

* PBUR 6 * 

* * 

*##***#*$:<£$* 2 
BURNER NUMBER 6 

RIN ROUT LENGTH MACH WSPEC 

22.246 32.789 18.000 0.055 22.440 

CAS WT LIN WT NOZ WT INC WT FRAME WTOT 

11.0 18.3 8.1 7.5 68.6 113.5 


# # 3$: ■$. 2$£ !(£ sje $ * Jje $ * # 

* * 

* HPT 7 * 

* * 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.500 361. 1456.2207860.1882986. 0.0369 1.2968 

U TIP STRESS DEN W/AREA TR H/t 

337.1 6770.3 0.008 1.203 1.000 0.922 

TURBINE 7 MECHANICAL DESIGN 
H/T N STG LOADING AREA 

0.922 2.000 0.280 0.037 

UT RTIP RHUB DEL H RPM TORQ 

337.1 28.0 184.0 11515.5 25703.8 

STAGE 1 

DISK BLADE VANE HWD CASE AR 

2.91 1.04 3.83 9.85 1.81 1.50 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT LENGTH 

1.8453 92.0 0.500 0.037 25.77 27.96 180 337.1 6770. 19.43 5.12 

STAGE 2 

DISK BLADE VANE HWD CASE AR 

4.88 2.91 10.75 16.09 3.10 1.50 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT LENGTH 

2.0063 92.0 0.525 0.062 25.77 29.34 116 353.8 11346. 37.73 8.37 

N STG LENGTH WEIGHT 
2 13.49 57.17 


A-8 


&EPRODU dBlLiTY OF THE 
ORIGINAL PAGE IS POOR 



DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.550 350. 1127. 595416. 490421. 0.1122 1.3127 

PR TR AD EF PO TO TO.l 

3.7081 1.2928 0.8600595415.9 1126.5 1126.5 

H IN H OUT AREA FLOW HP 

737.29 553.26 0.48 62.40 '2533. 

******************* TOTAL TURB WEIGHT IS 57.166 


************* 

* * 

* LPT 8 * 

* * 

********** ** 2 
DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.550 350. 1127. 595538. 490523. 0.1122 1.3127 

U TIP STRESS DEN W/AREA TR H/T 

221.6 8072.8 0.008 3.793 1.000 0.765 

TURBINE 8 MECHANICAL DESIGN 
H/T N STG LOADING AREA 

0.765 2.000 0.243 0.112 

UT RT IP RHUB DEL H RPM TORQ 

221.6 29.3 91.6 7216.9 20419.6 

STAGE 1 

DISK BLADE VANE HWD CASE AR 

2.29 10.14 29.95 17.63 4.49 2.00 


PP 

OEL H 

MACH 

A&EA R HUB 

R TIP 

NB 

U TIP 

STR 

WEIGHT 

LENGTH 

1.4669 

45.8 

0.550 

0.112 22.42 

29.32 

80 

221.6 

8073. 

64.49 

12.11 

STAGE 

2 









DISK 

BLADE 

VANE 

HWD CASE AR 






3.13 

12.50 

36.93 15.43 4. 

22 3.1 

00 





PR 

DEL H 

MACH 

AREA R HU 8 

R TIP 

NB 

U TIP 

STR 

WE IGHT 

LENGTH 

1.5156 

45 .8 

0.575 

0.153 22.42 

CO 

t 

t*-4 

m 

98 

237.9 

11045. 

72.22 

10.60 


FRAME WT = 76.11 


N STG LENGTH WEIGHT 
2 34.06 212.82 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.600 352. 956. 267825. 212419. 0.2166 1.3249 

PR TR AD EF PO TO TO.l 

2.2236 1.1779 0.8600267824.9 956.4 956.4 

H IN H OUT AREA FLOW HP 

553.29 461.67 1.56 62.40 1261. 


A-9 



******************* TOTAL TURB WEIGHT is 212.822 


************* 

* * 

* AUG 10 * 

* * 

************2 
BURNER NUMBER 10 

RIN ROUT LENGTH 
0.0 61.264 48.000 

CAS WT LIN WT NOZ WT 

10.8 54.4 134.3 


MACH 
0.143 
INC WT 
0.0 


WSPEC 

58.089 

FRAME 

199.5 


WTOT 


************* 

* * 

* NOZ 11 * 

* * 

************2 
NOZZLE 11 

WEIGHT^ 258.07 LENGTH^ 122.528 TR WT= 0.0 


************* 
* * 

* DUCT 4 * 

* * 


************ 2 
DUCT t 4 

RH= 40.0708 RT= 44.9444 LENG= 157. 8737 
AREA= 0.1302 RHO=. 0046504 

OUTER CASE= 7.0493 INNER CASE= 6.2849 T0TAL=13. 3342 


* SHAF 12 * 

* * 

************2 
SHAFT 12 

DO DI LENG DN WT 

9.00 7.65 123.81 0.65 18.16 


************* 
* * 

* - SHAF 13 * 

* * 
************2 
SHAFT 13 

DO DI 

11.05 10.02 


LENG DN 
45.72 1.27 


WT 

6.50 


************* 

* * 

* ACCS WT * 

* * 
************ 2 

ACCS WT= 136.721 


A-10 



WEIGHT INPUT DATA IN ENGL UNITS 
WEIGHT OUTPUT DATA IN SIU UNITS 


COMP 

wt 

COMP 

ACCU 

UPSTREAM 

RADIUS 

DOWNSTREAM RADIUS 

NO 

EST 

LEN 

LEN 

R I 

RO 

R I 

RO 

RI 

RO 

RI 

RO 

1 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

2 

467. 

73. 

73. 

23. 

51. 

0. 

0. 

33. 

45. 

0. 

0. 

3 

0. 

0. 

73. 

0. 

0. 

0. 

0. 

33. 

40. 

40. 

45. 

4 

13. 

158. 

231. 

40. 

45. 

o. 

0. 

40. 

45. 

0. 

0. 

5 

280. 

65. 

138. 

23. 

32. 

0. 

0. 

27. 

29. 

0. 

0. 

6 

113. 

46. 

183. 

22. 

33. 

0. 

0. 

22. 

33. 

0. 

0. 

7 

57. 

13. 

197. 

26. 

28. 

0. 

0. 

26. 

32. 

0. 

0. 

8 

213. 

34. 

231. 

22. 

29. 

0. 

0. 

22. 

35. 

0. 

0. 

9 

0. 

0. 

231. 

11. 

40. 

40. 

54. 

11. 

54. 

0. 

0. 

10 

199. 

122. 

353. 

0 . 

61. 

0. 

0. 

0. 

61. 

0. 

0. 

11 

258. 

123. 

475. 

0. 

61. 

0. 

0. 

0. 

56. 

0. 

0. 

12 

18. 

0. 

0. 

23. 

51. 

26. 

28. 

0. 

0. 

0. 

0. 

13 

7. 

0. 

0. 

23. 

32. 

0. 

0. 

0. 

0. 

0. 

0. 

total 

8ARE 

ENGINE ! 

WE IGHT= 

1625 

. ACCESSORI ES= 

136. 

72 




NSTAGE 


ESTIMATED TOTAL LENGTH^ 475- ESTIMATED MAXIMUM RADIUS^ 61. 


A-ll 


OnOOOONIMOOOOO 



AAAAAAAA} AAAAAAAAAAAAAAAAAAAAAAAANNN 


CCCCC 

C CCCCCCCCCCCCCCDDDDDDDDDDDDDDDDDDDDDDDDDQDODDDDDDDDDDDODDDD 
c DDDDDDODDDDDDDDDDDODDDDDDDODDDODDDDDDDDDDDDD 
C CCCCCCCCCCCCCCC PPPPPPPPP T TTTTTTTT 
C CCCCCCCCCCCC C CCCCCCCCCCPPPPPPP TTTTTT T 
CCC CCCCCCC PPPPPPP TTTTTTTTTTT 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 


C/L C/L C/L C/L C/L C/L C/L C/L 


/L C/L C/L C/L C/L C/L C/L 


£ 

Jo 


UPDATED INPUT DATA TO REFLECT CALCULATED INPUT 
COMPONENT 


NO. 

TYPE 

DATINPL 

DAT INP2 

DATINP3 

DATINP4 

DAT I NP5 

DA7INP6 

DATINP7 

DATINP 

B 

DATINP 

9 

1 

INLET 

0.23850D 

03 

0.0 

0.146960 

02 

0.0 


0.0 


0.90000D 

00 

0.0 


0.0 


0.0 


2 

COMPRESR 

0.1 80000 

01 

0.0 

0.40000D 

04 

0.376 10 D 

04 

0.265900 

03 

0.3762GD 

04 

0. 10 11 3D 

01 

0. 37630D 

04 

0. 99222D 

00 

3 

SPLITTER 

0.77000D 

00 

0.0 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


4 

DUCT 8 

0.0 


0.0 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


5 

COMPRESR 

O.13000D 

01 

0.26000D-01 

0.S1455D 

04 

0.37070D 

04 

0.61418D 

02 

0.37080D 

04 

0.90909D 

00 

0.37090D 

04 

0.13246D 

01 

6 

DUCT B 

0.100000 

00 

0.0 

0.0 


0.26500D 

04 

0.94000D 

00 

0.18300D 

05 

0.0 


0.0 


0.0 


7 

TURBINE 

0.40000D 

01 

0.10000D 01 

0.46733D 

00 

0.38010D 

04 

0. 70645 D 

00 

0.38020D 

04 

0.96727D 

00 

0.90244D 

00 

0. 10000D 

01 

8 

TURBINE 

0.25000D 

01 

0.0 

0.38577D 

00 

0.38030D 

04 

0.72633D 

00 

0.380400 

04 

0.94012D 

00 

0.81558D 

00 

0.100000 

01 

9 

MIXER 

0.70773D 

03 

0.63925D 03 

0.24000D 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


10 

DUCT B 

0.600000- 

01 

0.0 

0.0 


0.0 


0.90000D 

00 

0.1 8300D 

05 

0. 0 


0.0 


0.0 


11 

NOZZLE 

0.47288D 

03 

0.10000D 01 

0.0 


0.0 


0.96000D 

00 

0.10000D 

01 

0.0 


0.0 


0.10000D 

01 

12 

SHAFT 

0.40000D 

04 

0.10000D 01 

0.10000D 

01 

0.10000D 

01 

0 . 100 OOD 

01 

0.10000D 

01 

0.10000D 

01 

0.10000D 

01 

0. 10000D 

01 

13 

SHAFT 

0.60000D 

04 

0.10000D 01 

0. 100000 

01 

0.10000D 

01 

0.10000D 

01 

0.10000D 

01 

0.100000 

01 

0.10000D 

01 

0.10000D 

01 


CASE IDENTIFICATION SIMPLE MODEL 



STATION PROPERTY OUTPUT DATA 


FLOW 

WEIGHT 


TOTAL 


TOTAL 


FUEL/AIR 

REFERR ED 

MACH 


STATIC INTERFACE CORRECTED 

station 

FLOW 


PRESSURE 

TEMPERATURE 

RATIO 

FLOW 


NUMBER 


PRESSURE 

FLOW ERROR 


STATP1 


STATP2 


STATP3 


STATP4 

STATP5 


STATP6 


STATP7 

STATP8 

1 

0.23650D 

03 

0.146 960 

02 

0.51867D 

03 

0.0 

0.23850D 

03 

0.0 


0.0 

0.0 

2 

0.23850D 

03 

0.13226D 

02 

0.51867D 

03 

0.0 

0.26499D 

03 

0.0 


0.0 

0.0 

4 

0.23850D 

03 

0.378280 

02 

0. 726 870 

03 

0.0 

0.10969D 

03 

0.0 


0. 0 

0.0 

5 

0. 13475D 

03 

0.378260 

02 

0.726370 

03 

0.0 

0.61970D 

02 

0.0 


0.0 

0.0 

6 

0.13124D 

03 

0.355810 

03 

0.14356D 

04 

0.0 

0.90183D 

01 

0.0 


0. 0 

0.0 

7 

0.35034D 

01 

0.355810 

03 

0.14356D 

04 

0.0 

0.0 


0.0 


0.0 

0.0 

8 

0.13405D 

03 

0.320220 

03 

0.265000 

04 

0. 21425D-01 

0.13906D 

02 

0.0 


0.0 

0.0 

9 

0.13756D 

03 

0. 863760 

02 

0.20278D 

04 

0.20866D-01 

0.46276D 

02 

0.0 


0.0 

0.0 

LO 

0.137560 

03 

0.38849D 

02 

0. 172160 

04 

0.20868D-01 

0.948010 

02 

0.240000 

00 

0.37401D 02 

0.0 

11 

0.103750 

03 

0.378260 

02 

0.726870 

03 

0.0 

0.477170 

02 

0.0 


0.0 

0.0 

12 

0.24131D 

03 

0.374010 

02 

0.131570 

04 

0.1 1790D-01 

0.15101D 

03 

0.0 


0.0 

0.0 

13 

0.241310 

03 

0.351570 

02 

0.13157D 

04 

0 . 1 1750D-01 

0.16065D 

03 

0. 100000 

01 

0.187800 02 

0.0 

14 

0.241310 

03 

0.351570 

02 

0.13157D 

04 

0. 11790 D-01 

0.160650 

03 

0.117290 

01 

0.14696D 02 

0.0 

15 

0.10375D 

03 

0.37828D 

02 

0.72637D 

03 

0.0 

0.47717D 

02 

0.12734D 

00 

0.374010 02 

0.0 










COMPONENT 

OUTPUT DATA 










COMPONENT 



















NO 

i. TYPE 

DAT0UT1 

DAT0UT2 

0AT0UT3 

DAT0UT4 

DAT0UT5 

DAT OUT 6 

DAT0UT7 

0AT0UT8 

DAT0UT9 

1 

INLET 

0.0 


0.0 


0.0 


O.IOOOOD 

01 

O.IOOOOD 

01 

0.0 


0.90000D 

00 

0.100000 

01 

0.0 


2 

COMPPESR 

-0.169120 

05 

0.40000D 

04 

0.0 


0.1 8000 D 

01 

0 .40000 0 

04 

0.100000 

01 

0. 265900 

03 

0.870000 

00 

0.286000 

01 

3 

splitter 

0.7T000D 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


4 

DUCT 8 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


5 

COMPRESR 

-0.33969D 

05 

0.600000 

04 

0.0 


0. 130000 

01 

0.51455D 

04 

0.98500D 

00 

0.614180 

02 

0.87000D 

00 

0.94060D 

01 

6 

DUCT B 

0.0 


0.100000 

00 

0.0 


0.214250- 

01 

0.0 


0 .101230 

05 

0.0 


0.940000 

00 

0 . 26 5000 

04 

7 

TURBINE 

0. 339690 

05 

0.600000 

04 

O.IOOOOD 

01 

0.400000 

01 

0.467330 

00 

0.56800D 

04 

0.706450 

00 

0.86000D 

00 

0.370730 

01 

8 

TURBINE 

0. 169120 

05 

0.40000D 

04 

0.10000D 

01 

0.25000D 

01 

0.38577D. 

00 

0. 5244 OD 

04 

0.726330 

00 

0. 860000 

00 

0.22234D 

01 

c 

MIXER 

0.707730 

03 

0.63925D 

03 

0.103870 

01 

0 • 101 140 

01 

0.472740 

03 

0.16773D 

03 

0.0 


0.949900- 

16 

O.IOOOOD 

01 

10 

DUCT B 

0.0 


0.600000- 

•01 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


11 

NOZZLE 

0.13785D 

05 

0.183 7 9 0 

04 

0.23923D 

01 

0. 483930 

03 

0.472880 

03 

O.IOOOOD 

01 

0.98000D 

00 

0. 18721D 

01 

0.23923D 

01 

12 

SHAFT 

0.0 


0.40000D 

04 

0.400000 

04 

0.400000 

04 

0.0 


0.0 


0.0 


0.0 


0.0 



13 SHAFT 

0.0 

0.600000 04 

0.60000D 04 0.60000D 

04 0.0 

0.0 0.0 

0.0 0.0 

MACH= 0.0 


ALTITUDE= 0. 

RECOVERY= 0.9000 0 

ITERATIONS 

2 PASSES 


AIRFLOW (LB/SEC) 

238.50 

GROSS THRUST 

13785.01 

FUEL FLOW ( LB/HR) 

10122.81 

NET THRUST 


13785.01 

TSFC 

0.7343 

NET THRUST/AIRFLOW 

57.7988 

TOTAL INLET 

DRAG 

0.0 

TOTAL BRAKE SHAFT HP 

0.0 

BOATT AIL DRAG' 

0.0 

INSTALLEO THRUST 

13785.01 

INSTALLED TSFC 

0.7343 

SPILLAGE + LIP DRAG 

0.0 


SIMPLE MODEL 

£D L0NG=F,DRAW=F,B0AT=T,SPILL=T,AMIN0S=1.6 LEND 



TABLE DATA INPUT SUMMARY 16 TABLES 


«« 01? 


QUO- 


TABLE NUMBER REFERENCE NUMBER ARRAY LOCATION 


1 

3761 

1 

2 

3762 

1075 

3 

3763 

2149 

4 

3704 

3223 

5 

3705 

4297 

6 

3706 

5371 

7 

3707 

6445 

8 

3708 

7681 

9 

3709 

8917 

10 

3801 

10153 

11 

3802 

10606 

12 

3803 

11203 

13 

3 804 

11656 

14 

3901 

12397 

15 

3902 

12799 

16 

3903 

13213 


DATA STORAGE ALLOCATION 20000 
DATA STORAGE NOT USED 6B85 


£D MODE^l, 


IWT=T, 

KONFIGt 1,1)=' I NLT * , 1 , 0 , 2 1 0 , SPEC ( 1, 1 )= 238. 5, 4*0, 0. 9, 

KONFIGt 1,2) = ' COMP* ,2, 0,4,0, SPEC (1,2 1 =1.8,0, 1,3761, 1,3762, 1 , 3763, 1 ,0, 0, . 87, 2 . 86, 
It 

KONFIG (1,4)=* DUCT* , 1 1 , 0 , 15 , 0, SP EC< 1 , 4) =6*0, 

KONFIGt 1,3) = ' SPLT' ,4, 0 , 5 , 1 1 , SPEC ( 1,3 1 =.77, 

KONF IG(1, 5 ) = ' COMP* ,5,0, 6, 7, SPEC ( 1,51=1.3, .026,1,3707, 1 , 3708 , 1 ,3709, 1 , 0, 0, . 87 , 
9.406, .985, 

KONFIG ( 1,6) = ' DUCT* ,6,0, 8,0, SPEC ( 1 , 6 ) = . 10 ,0 , 0 , 2650, .94, 1 8300 , 

KONFIGt 1,7 J='TURB* , 8 , 7 , 9,0 , SPEC (1 , 7 )=4, 1 , 1 , 3801 , 1 ,3802, 1 , 1 , 1 , 1, . 86, 5680 , 1 , 
KONFIGt 1,8 )=' TURB ' ,9,0,10,0,SPECt 1, 8 ) =2. 5 , 0 , 1 ,3 803, 1 , 3 804 , 1 , 1 ,1 , 1 , . 86, 5244 , 1 , 
KONFIGt 1,9} = 'MIXR*, 10,15, 12,0, SPEC (1,9) =0,0, .24, 

KONFIGt 1,10)= , DUCT» ,12, 0,13,0, SPEC t 1,10) =.06, 3*0,. 90, 18300, 

K0NFIG(1,11)=*N0Z2« ,13, 0,14,0, SPEC! 1, 11 )=0, 1,0,0,. 98, I, 0,0, 1, 

KONFIGt 1,12)=' SHFT* , 2, 8 ,0,0 , SPEC (1,12 )=4000 , 8*1 , 

KONFIGt 1,13)= 'SHFT' ,5, 7,0,0, SPEC ( 1,131=6000,8*1, 

KONFIGt 1,14)=' CNTL' ,SPCNTL( 1,14) =1,8, 'STAP' ,8,13,0,1, 

K0NFIG(ltl5) =, CNTL', SPCNTL ( 1 , 15 ) =1 , 7, * STAP * , 8 , 9 ,0 , 1 , 

KONF IG< 1,1 6)=' CNTL* , SPCNTL ( 1,16) =1,5, ‘STAP' ,8,8,0, 1, 

KONFIGt 1,17)= 'CNTL* , SPC NTL ( 1 , 17 ) =1 ,3 , • DOUT * ,8, 9, 0,1, 

KONF IGtl, 18 )=• CNTL*, SPCNTL ( 1, 18)= 1,2, ‘STAP ' , 8 , 5 , 0, 1 , 

KONFIGt 1,19) = ’ CNTL' , SPCNTL ( 1 , 19 ) =1 , 1 ,’ STAP ' ,8, 2, 0,1, 

KONF IGt 1,20)= 'CNTL*, SPCNTL ( 1, 20) =1 , 12, * DOUT • ,8,12,0,1, 

KONFIGt 1,21)=' CNTL' , SPCNTL ( 1,21) =1,13,' DOUT' ,8, 13,0,1, 

LEND 


THE FOLLOWING REPRESENTS THE CONFIGURATION FOR MODE= 1 
SIMPLE MODEL 

CONFIGURATION DATA 15 STATIONS 21 COMPONENTS 


COMPONENT NKIND COMPONENT 
NUMBER TYPE 


UPSTREAM 

STATIONS 


DOWNSTREAM 

STATIONS 


A-14 



A-15 


1 

1 

INLET 

1 

2 

4 

COMPRESR 

2 

3 

7 

SPLITTER 

4 

4 

2 

DUCT 8 

11 

5 

4 

COMPRESR 

5 

6 

2 

DUCT B 

6 

7 

5 

TURBINE 

8 

8 

5 

TURBINE 

9 

9 

8 

MIXER 

10 

10 

2 

DUCT B 

12 

11 

9 

nozzle 

13 

12 

11 

SHAFT 

2 

13 

11 

SHAFT 

5 

14 

12 

CONTROL 

13 

15 

12 

CONTROL 

9 

16 

12 

CONTROL 

8 

17 

12 

CONTROL 

9 

18 

12 

CONTROL 

5 

19 

12 

CONTROL 

2 

20 

12 

CONTROL 

12 

21 

12 

CONTROL 

13 


CONTROL INFORMATION 


14 

VARY DATINP 

1 

OF 

COMPONENT 

15 

VARY DATINP 

1 

OF 

COMPONENT 

16 

VARY DATINP 

1 

OF 

COMPONENT 

17 

VARY DATINP 

1 

OF 

COMPONENT 

18 

VARY DATINP 

1 

OF 

COMPONENT 

19 

VARY DATINP 

1 

OF 

COMPONENT 

20 

VARY DATINP 

1 

OF 

COMPONENT 

21 

VARY DATINP 

1 

OF 

COMPONENT 


CASE IDENTIFICATION 


SIMPLE MODEL 


0 2 0 

0 4 0 

0 5 11 

0 15 0 

0 6 7 

0 8 0 

7 9 0 

0 10 0 

15 12 0 

0 13 0 

0 14 0 

8 0 0 

7 0 0 

0 8 0 

0 7 0 

0 5 0 

0 3 0 

0 2 0 

0 10 
0 12 0 

0 13 0 


8 SO THAT STATP 8 OF FLOW STATION 13 EQUALS 0.0 

7 SO THAT STATP 8 OF FLOW STATION 9 EQUALS 0.0 

5 SO THAT STATP 8 OF FLOW STATION 8 EQUALS 0.0 

3 SO THAT DATOUT 8 OF COMPONENT 9 EQUALS 0.0 
2 SO THAT STATP 8 OF FLOW STATION 5 EQUALS 0.0 

1 SO THAT STATP 8 OF FLOW STATION 2 EQUALS 0.0 

12 SO THAT DATOUT 8 OF COMPONENT 12 EQUALS 0.0 

13 SO THAT DATOUT 8 OF COMPONENT 13 EQUALS 0.0 
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INPUT DATA 


COMPONENT 


NO. 

TYPE 

DATINP1 

DAT INP2 

0ATINP3 

0ATINP4 

' DATINP5 

DAT INP6 

DATINP7 

DAT INPS 

DAT INP9 

1 

INLET 

0. 23850D 

03 

0.0 


0.0 


0.0 


0,0 


0.900000 

00 

0.0 


0.0 


0.0 


2 

COMPRESR 

0. 18000D 

01 

0.0 


0.100000 

01 

0.37610D 

04 

0.100000 

01 

0.37620D 

04 

0. 10000D 

01 

0.37630D 

04 

0. 100000 

01 

3 

SPLITTER 

0.77000D 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0,0 


0.0 


0.0 

- 

A 

DUCT B 

0,0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


5 

COMPRESR 

0, 13000D 

01 

0.260000- 

■01 

0.10000D 

01 

0.370700 

04 

0.10000D 

01 

0.370800 

04 

0.10000D 

01 

0.370900 

04 

O.IOOOOD 

01 

fc 

DUCT B 

0. 10000D 

00 

0.0 


0.0 


0.26500D 

04 

0.94000D 

00 

0.18300D 

05 

0.0 


0.0 


0.0 


7 

TURBINE 

0.40000D 

01 

0.10000D 

01 

0 , 10000D 

01 

0.380100 

04 

0.10000D 

01 

0.38020D 

04 

0, 10000D 

01 

0.10000D 

01 

O.IOOOOD 

01 

8 

TURBINE 

0.25000D 

01 

0.0 


0, 100000 

01 

0. 380300 

04 

0.100000 

01 

0.380400 

04 

0.100000 

01 

0.100000 

01 

0. 10000D 

01 

9 

MIXER 

0.0 


0.0 


0.24000D 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


10 

DUCT B 

0, 60000D- 

■01 

0.0 


0.0 


0.0 


0.900000 

00 

0.18300D 

05 

0.0 


0.0 


0.0 


11 

NOZZLE 

0.0 


0.10000D 

01 

0.0 


0,0 


0.980000 

00 

0.100000 

01 

0.0 


0.0 


O.IOOOOD 

01 

12 

SHAFT 

0.40000D 

04 

0.100000 

01 

0.10000D 

01 

0.100000 

01 

0.100000 

01 

0.10000D 

01 

0.10000D 

01 

0.10000D 

01 

O.IOOOOD 

01 

12 

SHAFT 

0.600000 

04 

0.100000 

01 

0.10000D 

01 

0. 100000 

01 

0.100000 

01 

0.10000D 

01 

0.10000D 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

14 

CONTROL 

0.0 


0.0 


0.0 


0.100000 

01 

0.0 


0.80000D 

01 

0.0 


0.0 


0.100000 

01 


15 

CONTROL 

0.0 

0.0 

0.0 

0. 100000 

01 

0.0 

0.80000D 

01 

0.0 


0.0 

O.IOOOOD 

01 

16 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.80000D 

01 

0.0 


0.0 

O.IOOOOD 

01 

17 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.0 


0. 800000 

01 

0.0 

O.IOOOOD 

01 

18 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.800000 

01 

0.0 


0.0 

O.IOOOOD 

01 

19 

CONTROL 

'0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.800000 

01 

0.0 


0.0 

O.IOOOOD 

01 

20 

CONTROL 

0.0 

0.0 

0.0 

0. 10000D 

01 

0.0 

0.0 


0.800000 

01 

0.0 

O.IOOOOD 

01 

21 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.0 


0.800000 

01 

0.0 

O.IOOOOD 

01 



MODE 1 NOW BEING USED 
£W 

IPLT=T, 

ISII=F, 

I S IO=F » 

IOUTCD=2, 

ILENG( 1) =2, 3, 5, 6, 7, 8, 9, 10, 11,' 
IWMEC(1,2)=*FAN SI, 1, 4, 3*0, 

I WMEC < 1,3J=*5PLT* ,6*0, 

I WMEC < 1,4) = * DUCT S3, 5*0, 
IWMEC(1,5)=*HPC * , 1, 2,4*0, 

I WMEC < 1,6)=' PBURS 1,5*0, 

I WMEC (1,7) = ' HPT SO, 5, -5, 3*0, 
IWMEC<1,8)=*LPT ',1,2, 7, 3*0, 
IWMECt 1,9)='MIX * ,6*0 , 

I WMEC ( 1 , 10 ) = * AUG * , 6*0 , 
IWMEC(l,li J=*NOZ * ,2, -10, 4*0, 
I WMEC (1 ,12)=* SHAFSlt 8,3*0, 2, 
IWMEC<1,13)='SHAF* ,2, 7, 3*0, 5, 
SEND 


************* 

* * 

* FAN 2 * 

* * 

************ 2 
DUCT 

M NO VEL T TOT P TOT 

0.550 596. 519. 1905. 


P STAT AREA GAM 
1551. 6.7289 1.4005 


U TIP STRESS 
1258.9 26757.6 


DEN W/AREA 
0. 168 2.302 


TR H/T 

1.800 0.450 


COMPRESSOR 2 MECHANICAL DESIGN 

LOADING N STG DIAM U TIP C RPM C RPM 

0.874 3.00 39.33 1258.9 7335.4 7335.4 


FRAME WT * 92.60 


STAGE 1 

WO WB WS WN WC CL RHOB RHOD AR 

62. 50. 50. 0. 22. 6.3 0.168 0.168 4.00 

PR DEL H MACH AREA R HUB R TIP N8 U TIP STR WEIGHT TIN 

1.4789 16.7 0.550 6.729 8.85 19.67 68 1258.9 26758. 184. 519 

STAGE 2 

WD WB WS WN WC CL RHOB RHOD AR 

86. 29. 29. 42. 18. 5.3 0.168 0.168 3.50 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT TIN 

1.4155 16.7 0.517 5.057 10.80 18.67 78 1194.9 20358. 203. 588 

STAGE 3 

WO WB WS WN WC CL RHOB RHOD AR 

92. 19. 19. 38. 15. 4.7 0.168 0.168 3.00 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT TIN 

1.3671 16.7 0.483 3.964 11.90 17.98 83 1151.1 16067. 184. 658 

FRAME WT = 278.15 

A-17 



N ST G WEIGHT LENGTH 

3 940.48 24.49 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 

0.450 582. 727. 5447. 4743. 3.2206 1.3951 

PR AD EF PO TO HP 

2.8600 0.8700 5447.2 726.9 16910. 

HI HO WI CWI 

123.95 174.07 238.50 265.00 

fc**#****#***#**#*#* TOTAL COMP WEIGHT IS 940.481 

*c # $ * 

* * 

* HPC 5 * 

# * 

4 $$ 2 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 

0.400 520. 727. 5447. 4880. 1.9973 1.3951 

U TIP STRESS DEN W/AREA TR H/T 

1355.1 25943.6 0.168 0.720 1.200 0.700 

COMPRESSOR 5 MECHANICAL DESIGN 

LOADING N STG DIAM U TIP C RPM C RPM 

0.650 9.00 26.80 1144.7 11590.1 9790.5 

FRAME WT = 129.77 


STAGE 1 

WD WB WS WN WC CL RHOB RHOD AR 

32. 14. 14. 28. 8. 3.1 0.168 0.168 3.00 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT TIN 

1.4051 19.8 0.400 1.997 9.38 13.40 94 1355.1 25944. 95. 727. 

STAGE 2 

WD WB WS WN WC CL RHOB RHOD AR 

27. 8. 8. 23. 6. 2.6 0.168 0.168 2.81 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT TIN 

1.3600 19.8 0.389 1.536 9.93 13.00 112 1314.6 19975. 72. 808. 

STAGE 3 

WD WB WS WN WC CL RHOB RHOD AR 

21. 6. 6. 19. 5. 2.2 0.168 0.168 2.63 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT TIN 

1.3243 19.8 0.378 1.215 10.29 12.71 129 1285.7 15816. 56. 889. 

STAGE 4 

WD WB WS WN WC CL RHOB RHOD AR 

17. 4. 4. 17. 4. 1.9 0.168 0.168 2.44 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT TIN 

1.2951 19.8 0.367 0.984 10.54 12.50 146 1264.4 12815. 46. 970. 
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STAGE 5 


WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




14. 

3. 3. 15. 

4. 

1.7 

0.168 0.168 

2.25 




PP 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2709 

19.8 0.356 

0.812 

10.73 

12.34 162 

1248.4 

10588. 

39. 

1049 

STAGE 

6 








WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




12. 

3. 3. 14. 

3. 

1.5 

0.168 0.168 

2.06 




PP 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2506 

19.8 0.344 

0.682 

10. 87 

12.22 175 

1236.1 

8895. 

34. 

1128 

STAGE 

7 








WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




20- 

4. 4. 13. 

3. 

1.4 

0.286 0.286 

1.88 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2333 

19.8 0.333 

0.581 

10.97 

12.13 185 

1226.5 

12905. 

43. 

1206 

STAGE 

8 








WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




18. 

3. 3. 12. 

3. 

1.4 

0.286 0.286 

1.69 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2183 

19.8 0.322 

0.502 

11.06 

12.05 192 

1218.9 

11139'. 

40. 

12 83 

STAGE 

9 








WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




17. 

3. 3. 12. 

3. 

1.4 

0.286 0.286 

1.50 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2053 

19.8 0.311 

0.438 

11.12 

11.99 195 

1212.8 

9726. 

38. 

1360 


ft STG WEIGHT LENGTH 
9 593.11 18.07 


DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.300 544. 1436. 51236. 48231. 0.3874 1.3539 

PP AD EF PO TO HP 

9.4060 0.8700 51235.9 1435.6 33965. 

HI HO WI CWI 

174.07 352.23 134.75 61.97 

********:Mt********* TOTAL COMP WEIGHT IS 593.109 

************* 

* * 

# PBUR 6 * 

# * 

* * >t< ** 2 


BURNER NUMBER 
RIN ROUT 
9.414 13.363 

CAS WT LIN WT 
26.0 42.5 


LENGTH MACH 

18.000 0.055 

NOZ WT INC WT 
17.9 18.3 


WSPEC 

4.596 

FRAME WTOT 

162.2 266.8 
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* * 

* HPT 7 * 

* * 

# ^ sjt # 2 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.300 720. 2621. 46112. 43515. 0.6059 1.2968 

U TIP STRESS DEN W/AREA TR H/T 

1045.1 15157.4 0.286 0.413 1.000 0.860 

TURBINE 7 MECHANICAL DESIGN 
H/T N STG LOADING AREA 

0.860 2.000 0.250 0.606 

UT RTIP RHUB DEL H RPM TORQ 

1045.1 10.3 8.9 174.5 11590.1 184717. 


STAGE 1 

DISK BLADE VANE HWD CASE AR 
8.0 6.0 22.3 27.9 6.3 1.50 


PR 

DEL H 

MACH 

AREA R HUB R TIP 

NB 

U TIP 

STR 

WEIGHT 

LENGTH 

1.8453 

87.3 

0.300 

0.606 8.89 10.33 

101 

1045.1 

15157. 

70.58 

3.38 

STAGE 

2 








DISK 

BLADE 

VANE 

HWD CASE AR 






10.2 

12.7 

46. 

7 37.0 9.2 1. 

50 





PR 

DEL H 

MACH 

AREA R HUB R TIP 

NB 

U TIP 

STR 

WEIGHT 

LENGTH 

2.0063 

87.3 

0.375 

0.865 8.55 10.62 

72 

1073.8 

21644. 

115.79 

4.84 


N STG LENGTH WEIGHT 
2 8.22 186.37 


DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.450 947. 2028. 12436. 10910. 1.3959 1.3127 

PR TR AD EF PO TO TO.l 

3.7081 1.2928 0.8600 12435.6 2027.7 2027.7 
H IN H OUT AREA FLOW HP 

699.28 524.74 5.17 137.56 33969. 

******************* TOTAL TURB WEIGHT IS 186.369 
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* * 

* LPT 8 * 

* * 


DUCT 

M NQ VEL T TOT P TOT P STAT AREA GAM 
0.450 947. 2028. 12438. 10913. 1.3957 1.3127 

u TIP stress den w/area tr h/t 

602.1 13984.5 0.286 1.275 1.000 0.526 

TURBINE 8 MECHANICAL DESIGN 
H/T N STG LOADING AREA 

0.526 3.000 0.250 1.396 

UT RTIP RHUB DEL H RPM TORQ 

602.1 9.4 4.9 86.9 7335.4 145306. 

STAGE 1 

DISK BLADE VANE HWD CASE AR 
1.3 48.1 142.1 20.0 13.2 2.00 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT LENGTH 


1.2867 

29.0 0. 

450 1.396 4.95 9.41 

39 

602.1 

13984. 

224.80 

7.82 

STAGE 

2 

| 






DISK 

BLADE 

VANE HWO CASE AR 






1.0 

49.2 

145.3 12.3 11.1 3.1 

30 





PR l 

DEL H MACH AREA R HUB R TIP 

NB 

U TIP 

STR 

WEIGHT 

LENGTH 

1.3044 

29.0 0. 

483 1.656 4.30 9.72 

50 

622.1 

16596. 

218.77 

6.33 

STAGE 

3 







DISK 

BLADE 

VANE HWD CASE AR 






0.5 

61.8 

182.6 6.7 10.9 4.i 

00 





PR 

DEL H MACH AREA R HUB R TIP 

NB 

U TIP 

STR 

WEIGHT 

LENGTH 

1.3246 

29.0 0. 

517 2.001 3.26 10.12 

55 

647.6 

20051. 

262.58 

6.02 


FRAME WT = 102.56 


N STG LENGTH WEIGHT 
3 26.90 808.72 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.550 1062. 1722. 5594. 4600. 2.4638 1.3249 

PR TR AD EF PO TO TO.l 

2.2236 1.1779 0.8600 5593.7 1721.5 1721.5 

H IN H OUT AREA FLOW HP 

524.77 437.87 16.80 137.56 16912. 

*********^*******4 TOTAL TUP B WEIGHT IS 808.718 
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* * * * * * * * * * * * * 

* * 

* AUG 10 * 

* * 
************ 2 
BURNER NUMBER 10 


RIN 

ROUT 

LENGTH 

MACH 

WSPEC 

0.0 

22.068 

54.000 

0. 172 

14.214 

CAS WT 

LIN WT 

NOZ WT 

INC WT 

WTOT 

22.3 

123.5 

278.8 

0.0 

424.7 

************* 

* * 

* NOZ 11 * 

* * 

* **** ## *** ** 2 
NOZZLE 11 

WEIGHT^ 476.27 

LENGTH- 

44.136 TR 

WT = 0.0 


************* 
* * 

* DUCT 4 * 

* * 
************2 
DUCT t 4 


RH= 16.53 PT= 16.53 LENG= 

APEA= 0.0 RHO=. 168 

71.19 

CAS WT 

INC WT 

WTOT 

15.5346 

15.5346 

31.0693 


************* 
* * 

* SHAF 12 * 

* * 
************ 2 
SHAFT 12 

DO DI 

LENG 

DN 

WT 

2.76 0.0 

44.29 

0.51 

75.57 

************* 
* * 

* SHAF 13 * 

* * 
************2 
SHAFT 13 

DO DI 

LENG 

DN 

WT 

3.76 3.16 

18.00 

1.11 

16.79 


************* 
* * 

* ACCS WT * 

* * 
************2 


ACCS WT= 334.358 
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WEIGHT INPUT DATA IN ENGL UNITS 
WEIGHT OUTPUT DATA IN ENGL UNITS 


COMP 

WT 

COMP 

ACCU 

UPSTREAM 

RADIUS 

DOWNSTREAM RADIUS 

NO 

EST 

LEN 

LEN 

R I 

RO 

R I 

RO 

Rl 

RO 

RI 

RO 

1 

0. 

0. 

0. 

0 . 

0. 

0. 

0. 

0. 

◦ . 

0- 

0. 

2 

940. 

24. 

24. 

9. 

20. 

0. 

0. 

13. 

18. 

0. 

0. 

3 

0. 

0. 

24. 

0 . 

0. 

0. 

0. 

13. 

16. 

16. 

18. 

4 

31. 

71. 

96. 

17. 

17. 

0. 

0. 

17. 

17. 

0. 

0. 

5 

593. 

18. 

43. 

9. 

13. 

0. 

0. 

11. 

12. 

0. 

0. 

6 

267. 

18. 

61. 

9. 

13. 

0. 

0. 

9. 

13. 

0. 

0. 

7 

186. 

8. 

69. 

9. 

10. 

0. 

0. 

8. 

11. 

0. 

0. 

8 

809. 

27. 

96. 

5. 

9. 

0. 

0. 

0. 

11. 

0. 

0. 

9 

0. 

0. 

96. 

0. 

15. 

15. 

21. 

0. 

21. 

0. 

0. 

10 

425. 

54. 

150. 

0 . 

22. 

0. 

0. 

0. 

22. 

0. 

0. 

11 

476. 

44. 

194. 

0. 

22. 

0. 

0. 

0. 

20. 

0. 

0. 

12 

76. 

0 . 

0 . 

9. 

20. 

9. 

10. 

0 . 

0. 

0 . 

0. 

13 

17. 

0. 

0. 

9. 

13. 

0. 

0. 

0. 

0. 

0. 

0. 

TOTAL 

BARE 

ENGINE 

WE IGHT= 

3820 

. ACCESSORI ES= 

334. 

36 




ESTIMATED TOTAL LENGTH- 194. ESTIMATED MAXIMUM RADIUS^ 22. 


NSTAGE 
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ocoooo'OMmooooo 



AAAAAAAAA ) A A A A A AA AA A A A A A A A A AA A A AAA A A NNNNNNNNN NNNNNNNNNNN -JNNNNNNNNN 


crcccccccccccc'c 

C ~OC r 'DCn'CDC DOGDDDDDDP r Cl'ODGDDDOQOC'tDDDDDDDCCDDOQC 

C CCCCCCCuC PPPPPPPP 

f CCCCCCCCCCCr CCF CCCCCPPP°PPPPP TTTTTTT Tt TT ttttttt 

CCCC CCCC PPPTTTTTTTTTTTTTT t 

T T 

TTTT t T tttt T 

TTTTTTTTT 

C/L C/L C/L C/L r /L C/L C/L C/L C/ 


C/L C/L C/L C/L C/L C/L 




UPCATEC INPUT DATA T 0 REFl=CT CALCULATED INPUT 
f CMPCNENT 


N<'. 

type 

CAT imp i 

DATINP2 

DATINP 

3 

CATINP4 

DATINP5 

DAT I NP 6 

0AT1NP7 


DA’ INP 8 

DATINP 

9 

1 

INLET 

0. 23850D 

03 

0.0 

0.14696D 

02 

0.0 


0.0 


0.900000 

OC 

0.0 


0.0 


0.0 


2 

COMPRESS 

0.180000 

01 

0.0 

O.-tOOOOD 

04 

0. 376 IOC 

04 

0.265900 

03 

0.37620D 

04 

0. 10 1 1 3D 

01 

0.37630D 

04 

0.99 2220 

00 

■> 

SPLITTER 

0. 770000 

00 

0.0 

O.u 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


a 

DUCT B 

0.0 


0.0 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


5 

COMPRESS 

0.13000D 

01 

0 .260000-01 

0.514550 

04 

0.37070C 

04 

0.61418D 

02 

0.37080D 

04 

0.90909D 

00 

0.37090D 

i04 

0.13246D 

01 

A 

DUCT e 

0 . 10000 D 

00 

0.0 

0.0 


0 . 26500 D 

04 

0.94000D 

00 

0.18300D 

05 

G.O 


0.0 


0.0 


7 

TURBINE 

0.40000C 

01 

0 . 10000 D 01 

0.46733D 

00 

0.380100 

Ot 

0. 70645D 

00 

0.380200 

04 

0.96727D 

00 

0.90244D 

00 

0 . 10000 D 

01 

8 

TURBINE 

0.25000D 

01 

0.0 

0.38577D 

00 

0.380 30 D 

04 

0 . 7263 3D 

00 

0.38040D 

04 

0.54012D 

00 

0.81558D 

00 

0. 100000 

01 

9 

MIXER 

0.70773D 

03 

0.63925D 03 

0.24000D 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


10 

DUCT 8 

0. 60000D- 

■01 

0.0 

0.0 


0.0 


0.90000D 

00 

0.18300D 

05 

0.0 


0.0 


0.0 


11 

NOZZLE 

0. 472880 

03 

0.10000D 01 

0.0 


0.0 


0.98000D 

00 

O.IOOOOD 

01 

0.0 


0.0 


0. 10000D 

01 

12 

SHAFT 

0.400000 

04 

0 . 10000 D 01 

0.10000D 

01 

0 . 10000 D 

01 

0.10000D 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

13 

SHAPT 

0.60000D 

04 

0.100000 01 

0.10000D 

01 

0.100000 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

0. 100000 

01 

0.100000 

01 

O.IOOOOD 

01 


C AS p IDENTIFICATION SIMPLF MODEL 



STATION PROPERTY OUTPUT DATA 


TLCW 

WEIGHT 


TOTAL 


TOTAL 


FUEL/A IP 

REFERRED 

MACH 


STATIC INTERFACE CORRECTED 

STAT ion 

FLOW 


PRESSURE 

TEMPERATURE 

RATIO 

FLOW 


NUMBER 


PRESSURE 

RL-OW ERROR 


STATP1 


STATP2 


STATP3 


STATP4 

STATP5 


STATP6 


ST ATP 7 

STATP6 

1 

0 .238500 

03 

0 .146960 

02 

0.518670 

03 

0.0 

0.238500 

03 

0.0 


0.0 

0.0 

2 

0.23850D 

03 

0.13226D 

02 

0.51867D 

03 

0.0 

0.264990 

03 

0.0 


0.0 

0.0 

A 

0.23850D 

03 

0.378280 

02 

0.72687D 

03 

0.0 

0.10969D 

03 

0.0 


0.0 

0.0 

5 

0.134750 

03 

0.378280 

02 

0.72687D 

03 

0.0 

0.619700 

02 

0.0 


0.0 

0.0 

6 

0. 131240 

03 

0.355810 

03 

0.14356D 

04 

0.0 

0.90183D 

01 

0.0 


0.0 

0.0 

7 

0 .350340 

01 

0.355810 

03 

0. 14356D 

04 

0.0 

0.0 


0.0 


0.0 

0.0 

e 

0. 13405D 

03 

0 .32022 C 

03 

0 .265 OOD 

04 

0. 21425D-01 

0.139060 

02 

0.0 


0.0 

C.C 

9 

0. 13756D 

03 

0.863760 

02 

0.20278D 

04 

0.20868D-01 

0.46276D 

02 

. .0 


0.0 

0.0 

10 

0.137560 

03 

0.38849D 

02 

0. 17216D 

04 

0 . 20868D-01 

0.94801D 

02 

0 . 240 OOD 

00 

0.374010 02 

C.o 

u 

0.103750 

03 

0.37828D 

02 

0.72687D 

03 

0.0 

0.47 i’17D 

02 

0.0 


0.0 

0.0 

12 

0.24131D 

03 

0.37401D 

02 

0.131570 

04 

0. 11790 D-01 

0.151010 

03 

0.0 


0.0 

0.0 

13 

0.24131D 

03 

0.351570 

02 

0.13157D 

04 

0.117900-01 

0.160650 

03 

0.100000 

01 

0.18780D 02 

0.0 

14 

0.241310 

03 

0.351570 

02 

0. 13157D 

04 

0.117900-01 

0.160650 

03 

0.117290 

01 

0. 1469e>C 02 

u.O 

15 

0. 10375D 

03 

0.378280 

02 

0.72687D 

03 

0.0 

0.477170 

02 

0.127340 

00 

0. 37401D 02 

0.0 


* 

K) 

cn 


COMPONENT OUTPUT DATA 

COMPONENT 


NC 

type 

OATOUT1 

0AT0UT2 

DATQUT3 

DATGUT4 

DAT0UT5 

DATOUT 6 

DAT0UT7 

C 6 TOUT 8 

DATOUT 9 

1 

INLET 

0.0 


0.0 


0.0 


0 . 10000 D 

01 

0.10000D 

01 

0.0 


0. 90000Q 

00 

0. IC30GD 

01 

0.0 


2 

COMPRESR 

-0.16912D 

05 

0.400000 

04 

0.0 


0. 180000 

01 

0.400000 

04 

0 . 10000 D 

01 

0.265900 

03 

0.87000D • 

•00 

O.2860OD 

01 

3 

SPUTTER 

0.77000D 

00 

0.0 


0.0 


0.0 


0-0 


0.0 


0.0 


0.0 


0.0 


4 

DUCT B 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


c 

COMPRESR 

-0.33969D 

05 

0 .60000 D 

04 

0.0 


0.13000D 

01 

0.514550 

04 

0.98500D 

00 

0.61418D 

02 

0.870000 

00 

0.94060D 

01 

6 

DUCT B 

0.0 


0.100000 

00 

0.0 


0.214250- 

■01 

0.0 


0.101230 

05 

0.0 


0.940000 

00 

0. 265 COD 

04 

7 

TURBINE 

0.33969D 

05 

0.60000D 

04 

0 . 10000 D 

01 

0.400 OOD 

01 

0.467330 

00 

0.568000 

04 

0.70645D 

00 

0.86000C 

00 

0.37073D 

Cl 

8 

1 UR 8 INE 

0.169120 

05 

0.400000 

04 

0.10000D 

01 

0.250 OOD 

01 

0.38577D 

OQ 

0.52440D 

04 

0. 72633D 

00 

0. BoOOOD 

00 

0.222340 

ul 

9 

Ml /-o 

0.707730 

03 

0.63925D 

03 

0-10387D 

01 

0. 101 14D 

01 

0.47274D 

03 

0.16773D 

03 

0.0 


0.94990D- 

16 

0. 1000CD 

Cl 

10 

DUCT B 

0.0 


0.60000D- 

•01 

0.0 


0.0 


0.0 


0.0 


0 . 0 


0.0 


0.0 

v 

11 

NOZZLE 

0.13785D 

05 

0.18379D 

04 

0.23923D 

01 

0.48393D 

03 

0.47288D 

03 

0.100000 

01 

0.980000 

00 

0. 1 372 ID 

Oi 

0. 23 C 23D 

01 

12 

SHAFT 

0.0 v 


0 .400000 

04 

0.40000D 

04 

0.400000 

04 

0.0 


0.0 


0.0 


0.0 


0.0 



13 SHAFT 

0.0 

0.60000D 04 

0.60000D 04 0.60000D 

04 0.0 

0.0 0.0 

0.0 

MACH- 0.0 


ALTITUDE- 0. 

RECOVERY- 0.9000 0 

1 TERATIONS 

2 PASSES 


AIRFLOW < LB/SEC) 

238.50 

GROSS THRUST 

13785.01 

FUEL FLOW ( LB/HR1 

10122.81 

NET THRUST 


13785.01 

TSFC 

0.7343 

NET THRUST/AIRFLOW 

57.7988 

TOTAL INLET 

DRAG 

0.0 

TOTAL BRAKE SHAFT HP 

0.0 

80ATT AIL DRAG 

0.0 

INSTALLED THRUST 

13785.01 

INSTALLED TSFC 

0.7343 

SPILLAGE ♦ LIP DRAG 

0.0 


SIMPLE MODEL 

CD L0NG=F,DRAW=F,B0AT-T,SPILL-T,AM1NDS«1.6 LEND 



TABLE DATA INPUT SUMMARY 16 TABLES 


TABLE NUMBER 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 


REFERENCE NUMBER 

3761 

3762 

3763 

3704 

3705 
3 706 

3707 

3708 

3709 

3801 

3802 

3803 

3804 

3901 

3902 

3903 


ARRAY LOCATION 
1 

1075 

2149 

3223 

4297 

5371 

6445 

7681 

8917 

10153 

10606 

11203 

11656 

12397 

12799 

13213 


DATA STORAGE ALLOCATION 20000 
DATA STORAGE NOT USED 6385 


CD MODE = 1 1 
IWT-T t 

KONFIGI 1,1)=* INLT* t 1 , 0 , 2 , 0 , SPEC ( 1 , 1 J =23 8.5 ,4*0, 0. 9, 

KONFIGI 1,2)=' COMP' ,2, 0,4,0, SPEC { 1 , 2) =1. 8 , 0, 1 ,3761 , 1 , 3762 » 1 , 3763 , 1 ,0 ,0 , . 87 , 2 . 
1 1 

KONFIGI 1,4) = • DUCT* , 1 1 *0 , 15 1 0 * SPEC ( 1 , 4 )=6*0, 

K0NFIGI1,3)='SPLT' ,4,0,5,11,SPECI 1,3)=.77, 

KONFIGI 1,5J = * COMP* ,5,0, 6, 7, SPEC II, 51 = 1. 3,. 026, 1,3707, 1,3708, 1,3709,1, 0,0». 87 
9.406, .985, 

KONFIGI 1,6)=' DUCT* ,6, 0,8,0, SPEC l 1 , 6 }= . 10 ,0, 0 , 2650 , .94,18300, 

KONFIGI 1,7) = ' TURB* , 8 , 7 , 9 , 0 , SPEC 1 1 ,7 1 =4 , 1 , 1 , 3801 , 1 , 3802 , 1 , 1 , 1 , 1, . 86 , 5680, 1 , 
KONFIGI 1, 8 )='TURB',9, 0,10,0, SPEC! 1,81=2.5,0, 1 , 3803, 1, 3 804 , 1* 1 , 1 , 1 , . 86, 5244, 1 
KONFIGI 1,9)='MIXR*,10,15,12,0,$PECI1,9)=0,0,.24, 

KONFIGI 1,10)= 'DUCT', 12, 0,13,0, SPEC! 1,10)=. 06, 3*0,. 90, 18300, 

KONFIGI 1,11) = 'NOZZ' ,13, 0,14,0, SPEC 1 1,11) =0,1, 0,0,. 98, 1,0, 0,1, 

KONFIGI 1,12)='SHFT' ,2, 8, 0,0 , SPEC II, 12) = 40 00, 8*1, 

KONFIGI 1,13) = * SHFT' ,5, 7, 0,0, SPEC 1 1,13 >=6000,8*1, 

KONFIGI 1,14)=' CNTL' ,SPCNTLI 1,14) =1,8,' STAP* ,8,13,0,1, 

KONFIGI 1,15)=' CNTL' ,SPCNTL( 1, 151=1, 7, • STAP • , 8, 9 ,0, 1, 

KONFIGI 1,16) = 'CNTL* ,SPCNTL 1 1,16) =1,5 ,' STAP* ,8, 8, 0,1, 

K0NFIGI1,17)='CNTL*, SPCNTL (1,171 = 1,3, 'DOUT' ,8, 9, 0,1, 

KONF IGI1,18) = 'CNTL', SPCNTL 1 1,181 = 1,2, 'STAP' ,8, 5, 0,1, 

KONFIGI 1, 19) = ' CNTL • , SPCNTL I 1,191=1,1, 'STAP' ,8, 2, 0,1, 

KONF IG 1 1,20) = ' CNTL' , SPCNTL I 1, 20) = 1, 12, 'DOUT' , 8, 12,0, 1, 

KONFIGI 1, 21) = ' CNTL* , SPCNTL 1 1,21) =1,13, 'DOUT* ,8,13,0,1, 

SEND 


86 , 


, 


, 
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THE FOLLOWING REPRESENTS THE CONFIGURATION FOR MODE- 1 
SIMPLE MODEL 


CONF 

IGURATION DATA 

15 STATIONS 

21 COMPONENTS 

COMPONENT 

NKIND COMPONENT 

UPSTREAM 

DOWNSTREAM 

NUMBER 

TYPE 

STATIONS 

STATIONS 


1 

1 

INLET 

1 

0 

2 

0 

2 

4 

COMPRESR 

2 

0 

4 

0 

3 

7 

SPLITTER 

4 

0 

5 

11 

4 

2 

DUCT B 

11 

0 

15 

0 

5 

4 

COMPRESR 

5 

0 

6 

7 

6 

2 

DUCT B 

6 

0 

8 

0 

7 

5 

TURBINE 

8 

7 

9 

0 

8 

5 

TURBINE 

9 

0 

10 

0 

9 

8 

MIXER 

10 

15 

12 

0 

10 

2 

DUCT B 

12 

0 

13 

0 

11 

9 

NOZZLE 

13 

0 

14 

0 

12 

11 

SHAFT 

2 

8 

0 

0 

13 

11 

SHAFT 

5 

7 

0 

0 

14 

12 

CONTROL 

13 

0 

8 

0 

15 

12 

CONTROL 

9 

0 

7 

0 

16 

12 

CONTROL 

8 

0 

5 

0 

17 

12 

CONTROL 

9 

0 

3 

0 

18 

12 

CONTROL 

5 

0 

2 

0 

19 

12 

CONTROL 

2 

0 

1 

0 

20 

12 

CONTROL 

12 

0 

12 

0 

21 

12 

CONTROL 

13 

0 

13 

0 


14 

CONTROL INFORMATION 

VARY DATINP 1 OF COMPONENT' 

8 

SO 

THAT 

STATP 

8 

OF 

FLOW 

STATION 

13 

EQUALS 0.0 

15 

VARY 

DATINP 

1 

OF 

COMPONENT 

7 

SO 

THAT 

STATP 

8 

OF 

FLOW 

STATION 

9 

EQUALS 0.0 

16 

VARY 

DATINP 

1 

OF 

COMPONENT 

5 

SO 

THAT 

STATP 

8 

OF 

FLOW 

STATION 

8 

EQUALS 0.0 

17 

VARY 

DATINP 

1 

OF 

COMPONENT 

3 

so 

THAT 

DATOUT 

8 

OF 

COMPONENT 9 

EQUALS 0.0 

18 

VARY 

DATINP 

1 

OF 

COMPONENT 

2 

so 

THAT 

STATP 

8 

OF 

FLOW 

STATION 

5 

EQUALS 0.0 

19 

VARY 

DATINP 

1 

OF 

COMPONENT 

1 

so 

THAT 

STATP 

8 

OF 

FLOW 

STATION 

2 

EQUALS 0.0 

20 

VARY 

DATINP 

1 

OF 

COMPONENT 

12 

so 

THAT 

DATOUT 

8 

OF 

COMPONENT 12 

EQUALS 0.0 

21 

VARY 

DATINP 

1 

OF 

COMPONENT 

13 

so 

THAT 

DATOUT 

8 

OF 

COMPONENT 13 

EQUALS 0.0 


CASE IDENTIFICATION 


SIMPLE MODEL 
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INPUT DATA 


COMPONENT 


NO. 

TYPE 

DATINP1 

0ATINP2 

DAT I NP3 

DAT 1NP4 

DATINP5 

DAT INP6 

DATINP7 

DATINP8 

DATINP9 

1 

INLET 

0.23850D 

03 

0.0 


0.0 


0.0 


0.0 


0.90000D 

00 

0.0 


0.0 


0.0 


2 

COMPRES R 

0.180000 

01 

0.0 


O.IOOOOD 

01 

0.37610D 

04 

O.IOOOOD 

01 

0.37620D 

04 

O.IOOOOD 

01 

0.37630D 

04 

O.IOOOOD 

01 

3 

SPLITTER 

0.77000D 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


4 

DUCT B 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


5 "COMPRESR 

0. 13000D 

01 

0.260000- 

■01 

0. 10000D 

01 

0.37070D 

04 

O.IOOOOD 

01 

0.37080D 

04 

O.IOOOOD 

01 

0.37090D 

04 

0. 10000D 

01 

fc 

DUCT B 

0.10000D 

00 

0.0 


0.0 


0.26500D 

04 

0.940000 

00 

0.18300D 

05 

0.0 


0.0 


0.0 


7 

TURBINE 

0.400000 

01 

0.10000D 

01 

0.100000 

01 

0.380100 

04 

O.IOOOOD 

01 

0.38020D 

04 

O.IOOOOD 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

8 

TURBINE 

0.25000D 

01 

0.0 


0. 10000D 

01 

0.380300 

04 

O.IOOOOD 

01 

0.38040D 

04 

0.100000 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

9 

MIXER 

0.0 


0.0 


0.24000D 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


10 

DUCT B 

0.600000-01 

0.0 


0.0 


0.0 


0 .900000 

00 

0.18300D 

05 

0.0 


0.0 


0.0 


11 

NOZZLE 

0.0 


O.IOOOOD 

01 

0.0 


0.0 


0.98000D 

00 

O.IOOOOD 

01 

0.0 


0.0 


O.IOOOOD 

01 

12 

SHAFT 

0.400000 

04 

0.10000D 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

0. 10000D 

01 

13 

SHAFT 

0.60000D 

04 

0.100000 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

0.100000 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

14 

CONTROL 

0.0 


0.0 


0.0 


O.IOOOOD 

01 

0.0 


0.80000D 

01 

0.0 


0.0 


O.IOOOOD 

01 


1 5 

CONTROL 

0 \0 

0.0 

0.0 

0.100000 

01 

0.0 

0.80000D 

01 

0.0 


0.0 

O.IOOOOD 

01 

16 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.80000D 

01 

0.0 


0.0 

O.IOOOOD 

01 

17 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.0 


0.800000 

01 

0.0 

O.IOOOOD 

01 

18 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.80000D 

01 

0.0 


0.0 

O.IOOOOD 

01 

19 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

O.BOOOOD 

01 

0.0 


0.0 

O.IOOOOD 

01 

26 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.0 


O.BOOOOD 

01 

0.0 

O.IOOOOD 

01 

21 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.0 


O.BOOOOD 

01 

0.0 

0. 10000D 

01 



MODE 1 NOW BEING USED 
GW 

I PLT »T , 

I SI I = F, 

ISIO=F, 

I0UTCD=2, 

ILENG( 11=2,3,5,6,7,8,9,10,11, 

I WMECI 1,2 I =‘ FAN SI, 1,4, 3*0, 

IWMEC( 1,3)='SPLT» ,6*0, 

IWMEC(1,4)=' DUCT' ,3,5*0, 

IWMECd,5)='HPC ',1,2, 4*0, 

IWMECI 1,6)=' PBURS 1,5*0, 

I WMEC( I ,7 ) -'HPT • ,0,5, -5, 3*0, 

I WMEC ( 1 » 8) =' LPT SI, 2, 7, 3*0, 

I WMEC( 1,9)=' MIX ' , 6*0 , 

IWMEC( 1,101 = ' AUG * , 6*0 » 

IWMEC(1,I1 )=*NOZ * , 2, “10,4*0, 

IWMEC(1,12) = * SHAF ' ,1,8, 3*0, 2, 

I WMEC (1 » 13 ) = * SHAF * , 2, 7, 3*0, 5, 

DESVAL(1,2>=.524,1.7,.45,1.5,3.5,2.5,.45,0.,0.,1.,0.,2. ,1., 0,1.1, 
DESVALd, 31=14*0., 1.1, 

DESVAL(1,4)=.45,2*0., 11 . , 10*0 . , 1 . 1 , 

DESVAL(1,5)=.45,1.35,.70,1.2,2.,1.5,.3,0.,0. , 1 . ,0 . , 2 . , 1 . , 0 , 1 . 1 , 
DESVALd, 6) =10 0., .015,0., 5. ,10*0. ,1.1, 

DESV AL (1,7)=. 5, .28, 1.5, 1.5, 1.5, .55, 15 00 00., 3. ,1., 5*0. ,1.1, 

DESVAK 1,81=. 55,. 243, 1.5,2. ,3. , . 6 , 150000. , 3. , 1. ,5*0. , 1 . 1 , 
DESVALd, 9) =14*0., 1.1, 

DESVALt 1,10) =250. ,.016,12*0. ,1.1 , 

DESVALd, 12) = 50000., .3,. 85, 11*0. ,1.1, 

DESVALd, 11) = 1. ,13*0., 1.1, 

DESVALd, 13) = 50000.,. 3, 12*0., 1.1, 

SEND 

# *#* #,!* 3jc * * 

* * 

* FAN 2 * 

* * 
as:*#*##**#*** 2 
DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 

0.524 570. 519. 1905. 1579. 6.9517 1.4005 

U TIP STRESS DEN W/AREA TR H/T 

1258.9 26757.6 0.168 2.339 1.800 0.450 

COMPRESSOR 2 MECHANICAL DESIGN 

LOADING N STG DIAM U TIP C RPM C RPM 

0.874 3.00 39.98 1258.9 7216.9 7216.9 

FRAME WT = 95.67 
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STAGE 1 

WD WB WS WN WC CL RHOB RHOD AR 

65. 59. 59. 0. 26. 7.4 0.168 0.168 3.50 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT TIN 

1.4789 16.7 0.524 6.952 8.99 19.99 59 1258.9 26758. 209. 519. 

STAGE 2 

WD WB WS WN WC CL RHOB RHOD AR 

91. 34. 34. 51. 21. 6.2 0.168 0.168 3.00 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT TIN 

1.4155 16.7 0.499 5.180 11.02 18.95 67 1193.2 20191. 231. 588. 

STAGE 3 

WD WB WS WN WC CL RHOB RHOD AR 

97. 23. 23. 46. 19. 5.7 0.168 0.168 2.50 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT TIN 

1.3671 16.7 0.475 4.017 12.17 18.23 70 1148.1 15768. 208. 658. 

FRAME WT = 285.15 


N STG WEIGHT LENGTH 

3 1028.68 28.80 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 

0.450 582. 727. 5447. 4743. 3.2206 1.3951 

PR AD EF PO TO HP 

2.8600 0.8700 5447.2 726.9 16910. 

HI HO WI CWI 

123.95 174.07 238.50 265.00 

******************* TOTAL COMP WEIGHT IS 1028.680 

************* 

* * 

* HPC 5 « 

* * 

************ 2 
DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 

0.450 582. 727. 5447. 4743. 1.8196 1.3951 

U TIP STRESS DEN W/APEA TR H/T 

1285.1 23331.5 0.168 0.687 1.200 0.700 

COMPRESSOR 5 MECHANICAL DESIGN 

LOADING N STG DIAM U TIP C RPM C RPM 

0.651 10.00 25.58 1085.6 11515.5 9727.5 

FRAME WT - 118.22 
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STAGE 1 


WD 

WB WS WN 

WC 

CL RHOB RHOD 

AR 




24. 

14. 14. 36. 

10. 

4.5 0.168 0.168 

2.00 




PR 

DEL H MACH 

AREA R 

HUB R TIP NB U 

TIP , 

STF 

WEIGHT 

TIN 

1.3603 

17.8 0.450 

1.820 

8.95 12.79 50 

1285.1 

23331. 

99. 

727, 

STAGE 

2 







WD 

WB WS WN 

WC 

CL RHOB RHOD 

AR 




20. 

9. 9. 29. 

8. 

3.6 0.168 0.168 

1.94 




PR 

DEL H MACH 

AREA R 

HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.3241 

17.8 0.435 

1.442 

9.42 12.45 60 

1250.7 

18516. 

75. 

800, 

STAGE 

3 







WD 

WB WS WN 

WC 

CL RHOB RHOD 

AR 




16. 

6. 6. 25. 

7. 

3.0 0.168 0.168 

1.89 




PR 

DEL H MACH 

AREA R 

HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2948 

17.8 0.420 

1.171 

9.75 12.19 70 

1225.3 

15048. 

59. 

873. 

STAGE 

4 







WD 

WB WS WN 

WC 

CL RHOB RHOD 

AR 




13. 

4. 4. 21. 

6. 

2.6 0.168 0.168 

1.83 




PR 

DEL H MACH 

AREA R 

HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2704 

17.8 0.405 

0.970 

9.98 12.00 81 

1206.2 

12477. 

49. 

946, 

STAGE 

5 







WD 

WB WS WN 

WC 

CL RHOB RHOD 

AR 




11. 

3. 3. 18. 

5. 

2.2 0.168 0.168 

1.78 




PR 

DEL H MACH 

AREA R 

HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2499 

17.8 0.390 

0.818 

10.15 11.86 93 

1191.5 

10527. 

41. 

1017 

STAGE 

6 







WD 

WB WS WN 

WC 

CL RHOB RHOD 

AR 




10. 

3 . 3 . 16 . 

4. 

2.0 0.168 0..168 

1.72 




PR 

DEL H MACH 

AREA R 

HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2324 

17.8 0.375 

0.701 

10.28 11.74 104 

1180.1 

9018. 

36. 

1089, 

STAGE 

7 







WD 

WB WS WN 

WC 

CL RHOB RHOD 

AR 




9. 

2. 2. 14. 

4. 

1.8 0.168 0.168 

1.67 




PR 

DEL H MACH 

AREA R 

HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2173 

17.8 0.360 

0.608 

10.39 11.65 115 

1171.0 

7829. 

32. 

1159 

STAGE 

8 







WD 

WB WS WN 

WC 

CL RHOB RHOD 

AR 




16. 

3. 3. 13. 

3. 

1.6 0.286 0.286 

1.61 




PR 

DEL H MACH 

AREA R 

HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2042 

17.8 0.345 

0.534 

10.47 11.58 126 

1163.6 

11712. 

39. 

1229 

STAGE 

9 







WD 

WB WS WN 

WC 

CL RHOB RHOD 

AR 




15. 

3. 3. 12. 

3. 

1.5 0.286 0.286 

1.56 




PR 

DEL H MACH 

AREA R 

HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.1926 

17.8 0.330 

0.475 

10.53 11.52 136 

1157.7 

10407. 

36. 

1299 

STAGE 

10 







WD 

WB WS WN 

WC 

CL RHOB RHOD 

AR 




15. 

2. 2. 11. 

3. 

1.4 0.286 0.286 

1.50 




PF 

DEL H MACH 

AREA R 

HUB R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.1824 

17.8 0.315 

0.426 

10.59 11.47 146 

1152.8 

9343. 

33. 

1367 


N STG WEIGHT LENGTH 
10 616.48 25.43 
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DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.300 544. 1436. 51236. 48231. 0.3874 1.3539 

PR AD EF PO TQ HP 

9.4060 0.8700 51235.9 1435.6 33965. 

HI HO WI CWI 

174.07 352.2-3 134.75 61.97 

******************* TOTAL COMP WEIGHT IS 616.477 

* 3{i:fc*Sit5{c #***##* 

* * 

* PBUR 6 * 

$ * 

BURNER NUMBER 6 

RIN ROUT LENGTH MACH WSPEC 

8.758 12.909 18.000 0.055 4.596 

CAS WT LIN WT NOZ WT INC WT FRAME WTOT 

24.2 40.4 17.8 16.4 151.3 250.2 


* * ** sfc * * ** # sfcijc =je 

* * 

* HPT 7 * 

* * 

************2 

DUCT 

M NO VEL T TOT p TOT P STAT AREA GAM 
0.500 1186. 2621.. 46112. 39327. 0.3977 1.2968 

U TIP STRESS DEN W/ AREA TR H/T 

1106.0 9819.5 0.286 0.246 1.000 0.922 

TURBINE 7 MECHANICAL DESIGN 
H/T N STG LOADING AREA 

0.922 2.000 0.280 0.398 

UT RT IP RHUB DEL H RPM TORQ 

1106.0 11.0 10.1 174.5 11515.5 185913. 

STAGE 1 

DISK BLADE VANE HWD CASE AR 


6.4 2.3 8.4 21.7 4.0 1.50 


PR 

DEL H MACH 

AREA R HUB R TIP 

NB 

U TIP 

STR 

WEIGHT 

LENGTH 

1.8453 

87.3 0.500 

0.398 10.14 11.01 

180 

1106.0 

9820. 

42.84 

2.02 

STAGE 

2 







DISK 

BLADE VANE 

HWO CASE AR 






10.8 

6.4 23. 

7 35.5 6.8 1.: 

50 





PR 

DEL H MACH 

AREA R HUB R TIP 

NB 

U TIP 

STR 

WEIGHT 

LENGTH 

2.0063 

87.3 0.525 

0.666 10.14 11.55 

116 

1160.9 

16456. 

83.19 

3.29 


N STG LENGTH WEIGHT 
2 5.31 126.03 
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DUCT 

M NO VEL T TOT p TOT P STAT AREA GAM 
0.550 1149. 2028. 12436. 10243. 1.2074 1.3127 

PR TR AD EF PO TO TO.l 

3.7081 1.2928 0.8600 12435.6 2027.7 2027.7 
H IN H OUT AREA FLOW HP 

699.28 524.74 5.17 137.56 33969. 

******************* TOTAL TURB WEIGHT IS 126.028. 


************* 

* * 

* LPT 8 * 

* * 

************ 2 
DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.550 1149. 2028. 12438. 10245. 1.2072 1.3127 

U TIP STRESS DEN W/AREA TR H/T 

727.0 11708.5 0.286 0.777 1.000 0.765 

TURBINE 8 MECHANICAL DESIGN 
H/T N STG LOADING AREA 

0.765 2.000 0.243 1.207 

UT RTIP PHUB DEL H RPM TQRQ 

727.0 11.5 8.8 86.9 7216.9 147693. 

STAGE 1 

DISK BLADE VANE HWD CASE AR 

5.0 22.4 66.0 38.9 9.9 2.00 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT LENGTH 
1.4669 43.4 0.550 1.207 8.83 11.54 80 727.0 11709. 142.18 4.77 


STAGE 2 

DISK BLADE VANE HWD CASE AR 

6.9 27.6 81.4 34.0 9.3 3.00 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT LENGTH 
1.5156 43.4 0.575 1.652 8.83 12.39 98 780.6 16019. 159.21 4.17 

FRAME WT - 167.79 


N STG LENGTH WEIGHT 
2 13.41 469.18 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.600 1154. 1722. 5594. 4436. 2.3313 1.3249 

PR TR AD EF PO TO ' TO.l 

2.2236 1.1779 0.8600 5593.7 1721.5 1721.5 

H IN H OUT AREA FLOW HP 

524.77 437.87 16.80 137.56 16912. 
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******************* TOTAL TURB WEIGHT IS 469.184 


* ** ** ** * 44 4 *# 

* * 

* AUG 10 * 

* * 

* *********** 2 
BURNER NUMBER 10 

RIN ROUT LENGTH 

0.0 24.120 48.000 

CAS WT LIN WT NOZ WT 

23.7 120.0 296.1 


MACH 
0.143 
INC WT 
0.0 


WSPEC 

11.899 

WTOT 

439.8 


* * A * * # # * # a$e * * # 

* * 

* NOZ 11 * 

# # 

#* # *#$*$* !fs 2 

NOZZLE 11 

WE IGHT= 568.95 LENGTH^ 


48.239 TR WT= 


I ******#**###* 

* * 

* DUCT 4 * 

# $ 

****##44***# 2 
DUCT , 4 

RH= 15.78 RT= 17.69 LENG= 
AREA= 1.401 RHO=. 168 

CAS WT INC WT 

15.5408 13.8556 


62.16 

WTOT 

29.3964 


* * 

* SHAF 12 * 

* * 

SHAFT 12 

DO DI LENG DN WT 

3.54 3.01 48.74 0.65 40.03 


#***#**##*#** 

* * 

* SHAF 13 * 

* * 

*#**#* *#*#** 2 
SHAFT 13 

DO DI LENG DN WT 

4.35 3.94 18.00 1.27 14.33 


$************ 
* * 

* ACCS WT * 

* * 
************2 


ACCS WT = 301.414 
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WEIGHT INPUT DATA IN ENGL UNITS 
WEIGHT OUTPUT DATA IN ENGL UNITS 


COMP WT COMP ACCU UPSTREAM RADIUS DOWNSTREAM RADIUS 
NO EST LEN LEN RI RO RI RO RI RO PI RO N ST AGE 

1 o. 0. 0. 0. 0. 0. 0. 0- 0- 0. 0. 

2 1132. 29. 29. 9. 20. 0. 0. 13. 18. 0. 0. 

3 0. 0. 29. 0. 0. 0. 0. 13. 16. 16. 18. 

4 32. 62. 91. 16. 18. 0. 0. 16. 18. 0. 0. 

5 678. 25. 54. 9. 13. 0. 0. 11. 11. 0. 0. 

6 275. 18. 72. 9. 13. 0. 0. 9. 13. 0. 0. 

7 139- 5. 78. 10. 11. 0. 0. 10. 13. 0. 0. 

8 516. 13. 91. 9. 12. 0. 0. 9. 14. 0. 0. 

9 0* 0. 91. 4. 16. 16. 21. 4. 21. 0. 0. 

10 484. 48. 139. 0. 24. 0. 0. 0. 24. 0. 0. 

11 626. 48. 187. 0. 24. 0. 0. 0. 22. 0. 0. 

12 44. 0. 0. 9. 20. 10. 11. 0. 0. 0. 0. 

13 16. 0. 0. 9. 13. 0. 0. 0. 0. 0. 0. 

TOTAL BARE ENGINE WE IGHT= 3941. ACCESSORIES= 301.41 


ESTIMATED TOTAL LENGTH^ 187. ESTIMATED MAXIMUM RADIUS= 24. 
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orooooorvitvjooooo 



tVnioiho 


AAAAAAAA} aaaaaaaaaaaaaaaaaaaaaaaannn 


ccc cc 

C CCCCCCCCCCCCCCODDDDDDDDDDDDDDDDDDDDDDDDDDDDDODDDDDDDDDDDDD 
C DDDDDDDDDDDDDDDDDDDDDODDDDDDDODDODDDODDDDDDD 
C CCCCCCCCCCCCCCC PPPPPPPPP T TTTTTTTT 
C CCCCCCCCCCCC C CCCCCCCCCCPPPPPPP TTTTTT T 
CCC CCCCCCC PPPPPPP TTTTTTTTTTT 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 


C/L C/L --C/L C/L C/L C/L C/L C/L 


/L C/L C/L C/L C/L C/L C/L 




O' UPDATED INPUT DATA TO REFLECT CALCULATED INPUT 
COMPONENT 


NO. 

TYPE 

DAT INP1 


DATINP2 

DATINP3 

DATINP4 

I 

INLET 

0.238500 

03 

0.0 

0.146960 

02 

0.0 


2 

CGMPRESR 

0. 18000D 

01 

0.0 

0.400000 

04 

0.376100 

04 

3 

SPLITTER 

0.77000D 

00 

0.0 

0.0 


0.0 


4 

DUCT B 

0.0 


0.0 

0.0 


0.0 


5 

COMPRESR 

0.130000 

01 

0.26000D-01 

0.51455D 

04 

0.37070D 

04 

6 

DUCT B 

0.10000D 

00 

0.0 

0.0 


0.265000 

04 

7 

TURBINE 

0.400000 

01 

0.10000D 01 

0.46733D 

00 

0.38010D 

04 

8 

TURBINE 

0.250000 

01 

0.0 

0.385770 

00 

0.380300 

04 

9 

MIXER 

0.70773D 

03 

0.63925D 03 

0.240000 

00 

0.0 


10 

DUCT B 

0. 60000D-01 

0.0 

0.0 


0.0 


11 

NOZZLE 

0 .472880 

03 

0.10000D 01 

0.0 


0.0 


12 

SHAFT 

0.400000 

04 

0.100000 01 

0.100000 

01 

0.100000 

01 

13 

SHAFT 

0.600000 

04 

0.100000 01 

0.100000 

01 

0. 10000D 

01 


CASE IDENTIFICATION SIMPLE MODEL 


DATINP5 

DAT INPfc 

DATINP7 

DAT INP8 

DATINP9 

0.0 


0.900000 

00 

0.0 


0.0 


0.0 


0.265900 

03 

0.376200 

04 

0. 10113D 

01 

0.376300 

04 

0.992220 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.614180 

02 

0.370800 

04 

0.909090 

00 

0.370900 

04 

0.132460 

01 

0.940000 

00 

0.183000 

05 

0.0 


0.0 


0.0 


0.70645D 

00 

0.38020D 

04 

0.967270 

00 

0.90244D 

00 

0.10000D 

01 

0.726330 

00 

0.380400 

04 

0.94012D 

00 

0.815580 

00 

0. 10000D 

01 

0.0 


0.0 


0.0 


0.0 


0.0 


0.90000D 

00 

0.18300D 

05 

0.0 


0. 0 


0.0 


0.98000D 

00 

0.10000D 

01 

0.0 


0.0 


0.100000 

01 

0.10000D 

01 

0.10000D 

01 

0.100000 

01 

0. 10000D 

01 

0.100000 

01 

0.10000D 

01 

0.10000D 

01 

0.10000D 

01 

0.10000D 

01 

0. 100000 

01 



STATION PROPERTY OUTPUT DATA 



FLOW 

WEIGHT 


TOTAL 


TOTAL 


FUEL/AIR 

REFERRED 

MACH 


STATIC 

INTERFACE CORRECTED 



STATION 

FLOW 


PRESSURE 

TEMPERATURE 

RATIO 

FLOW 


NUM8ER 


PRESSURE 

FLOW ERROR 





ST ATP 1 


STATP2 


STATP3 


STATP4 

STATP5 


STATP6 


ST ATP 7 


STATP8 




1 

0.23850D 

03 

0 .146960 

02 

0.51867D 

03 

0.0 

0.238500 

03 

0.0 


0.0 


0.0 




2 

O.23850D 

03 

0.132260 

02 

0.51867D 

03 

0.0 

0.264990 

03 

0.0 


0.0 


0.0 




4 

0.23850D 

03 

0 .37828D 

02 

0.726870 

03 

0.0 

0.10969D 

03 

0.0 


0.0 


0.0 




5 

0.13475D 

03 

0.37828D 

02 

0.72687D 

03 

0.0 

0.619700 

02 

0.0 


0.0 


0.0 




6 

0.13124D 

03 

0.35581D 

03 

0.143560 

04 

0.0 

0.90183D 

01 

0.0 


0.0 


0.0 




7 

0 .350340 

01 

0.355810 

03 

0.143560 

04 

0.0 

0.0 


0.0 


0.0 


0.0 




8 

0 .134050 

03 

0.32022D 

03 

0.265000 

04 

0.214250-01 

0.139060 

02 

0.0 


0.0 


0.0 




9 

0. 13756D 

03 

0.86376D 

02 

0.202780 

04 

0.208680-01 

0.462760 

02 

0.0 


0.0 


0.0 




10 

0. 13756D 

03 

0.38849D 

02 

0. 172160 

04 

0.208680-01 

0.948010 

02 

0.24000D 

00 

0.374010 

02 

0.0 




11 

0.10375D 

03 

0.378280 

02 

0.726870 

03 

0.0 

0.47717D 

02 

0.0 


0.0 


0.0 




12, 

0.24131D 

03 

0.374010 

02 

0.13157D 

04 

0.117900-01 

0.151010 

03 

0.0 


0. 0 


0.0 




13 

0.24131D 

03 

0.35157D 

02 

0. 13157D 

04 

0.117900-01 

0.16065D 

03 

0.10000D 

01 

0.18780D 

02 

0.0 




14 

0.241310 

03 

0.35157D 

02 

0.131570 

04 

0.1 1 790D-01 

0.160650 

03 

0.117290 

01 

0. 14696D 

02 

0.0 




15 

0.103750 

03 

0.378280 

02 

0. 726870 

03 

0.0 

0.477170 

02 

0.12734D 

00 

0.374010 

02 

0.0 











COMPONENT OUTPUT OATA 









COMPONENT 

1 
















NO. TYPE 

DATDUT1 

DAT0UT2 

datout: 

3 

OATOUT4 

DAT0UT5 

DAT0UT6 

DAT0UT7 

DAT0UT8 

DAT0UT9 

1 

INLET 

0.0 


0.0 


0.0 


0.10000C 01 

0.10000D 

01 

0.0 


0.900000 

00 

0. 100000 01 

0.0 


2 

COMPRESR 

-0. 169120 

05 

0.40000D 

04 

0.0 


0.18000D 01 

0.400000 

04 

0.10000D 

01 

0. 265900 

03 

0.87000D 00 

0.28600D 

01 

3 

SPLITTER 

0.770000 

00 

0.0 


0.0 


0.0 

0.0 


0.0 


0.0 


0.0 

0.0 


4 

DUCT B 

0.0 


0.0 


0.0 


0.0 

0.0 


0.0 


0.0 


0.0 

0.0 


!► 5 

COMPRESR 

— 0. 33969D 

05 

0.60000D 

04 

0.0 


0.13000D 01 

0.51455D 

04 

0.98500D 

00 

0.61418D 

02 

0.87000D 00 

0. 940600 

01 

GJ 6 

DUCT B 

0.0 


0.100000 

00 

0.0 


0. 214250-01 

0.0 


0.10123D 

05 

0.0 


0.94000D 00 

0.26500D 

04 

7 

TURBINE 

0.33969D 

05 

0.600000 

04 

0.100000 

01 

0.400000 01 

0.467330 

00 

0.56800D 

04 

0. 706450 

00 

0.86000D 00 

0.37073D 

01 

8 

TURBINE 

0.169120 

05 

0.400000 

04 

0.10000D 

01 

0 . 25000 D 01 

0.385770 

00 

0.52440D 

04 

0.72633D 

00 

0.860000 00 

0. 222340 

01 

9 

MIXER 

0.70773D 

03 

0.63925D 

03 

0.10387D 

01 

0.10114D 01 

0.472740 

03 

0.16773D 

03 

0.0 


0.949900-16 

0 . 100 oob 

01 

10 

DUCT B 

0.0 


0.600000- 

■01 

0.0 


0.0 

0.0 


0.0 


0.0 


0.0 

0.0 


11 

NOZZLE 

0.13785D 

05 

0.183790 

04 

0.239230 

01 

0.483930 03 

0.47288D 

03 

0. 100000 

01 

0.98000D 

00 

0 . 1872 ID 01 

0.23923D 

01 

12 

SHAFT 

0.0 


0.40000D 

04 

0.40000D 

04 

0 .400000 04 

0.0 


0.0 


0.0 


0.0 

0.0 



13 SHAFT 0.0 


0.60000D 04 0.60000D 04 0.600000 04 0.0 


0.0 


0.0 


0.0 


0.0 


MACH= 0.0 ALTITUDE= 0. RECOVERY^ 0.9000 


0 ITERATIONS 2 PASSES 


A FLOW < LB/SEC J 
NET THRUST 
TOTAL INLET DRAG 
INSTALLED THRUST 


238.50 GROSS THRU5T 

13785.01 TSFC 

0.0 TOTAL BRAKE SHAFT HP 

13785.01 INSTALLED TSFC 


13785.01 


0.7343 

0.0 

0.7343 


FUEL FLOW (LB/HR) 
NET THRUST/AIRFLOW 
BOATT AIL DRAG 
SPI LL AGE ' + LIP DRAG 


10122.81 

57.7988 

0.0 

0.0 


SIMPLE MODEL 

£0 LONG=F,DRAW=F,BOAT=T,SPILL=T t AMINDS=1.6 LEND 



TABLE DATA INPUT SUMMARY 16 TABLES 


TABLE NUMBER 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 


REFERENCE NUMBER 

3761 

3762 

3763 

3704 

3705 

3706 

3707 

3708 

3709 

3801 

3802 

3803 

3804 

3901 

3902 

3903 


ARRAY LOCATION 
1 

1075 

2149 

3223 

4297 

5371 

6445 

7681 

8917 

10153 

10606 

11203 

11656 

12397 

12799 

13213 


DATA STORAGE ALLOCATION 20000 
DATA STORAGE NOT USED 6385 


£D M0DE=1» 

IWT=T, 

KONFIG( 1,1)=* INLT* ,1,0, 2,0, SPEC (1,1) =238. 5, 4*0, 0*9, 

KONFIGt 1,2) = * COMP ',2,0, 4,0, SP EC < 1 , 2) = 1 . 8, 0, 1 , 3761, 1 , 3762, 1 , 3763 , 1 , 0, 0, - 87 ,2 . 

1 , 

KONFIGt 1,4)= 'DUCT *,11,0,15,0, SPEC 1 1,4) =6*0, 

KONFIGt 1,3) = * SPLT * ,4, 0, 5,11 , SPECt 1* 3 )=.77 , 

KONFIGt 1,5) = * COMP *,5,0, 6,7, SPEC (1,5) =1.3,. 026,1, 3707, 1,3708,1, 3709, 1,0,0,. 87 
9.406, .985, 

KONFIGt 1,6)=' DUCT* ,6 , 0 , 8 ,0 , SPEC t 1 ,6 ) =.10 ,0 ,0 , 2650, .94 , 18300 , 

KONFIGt 1,7)='TURB*,8,7»9,0, SPEC t 1 , 7 ) =4 , 1 , 1 , 380 1 , 1, 3802 , 1 , 1 , 1 , 1 , . 86 , 5680, 1 , 
KONFIGt 1,8)=' TURB* ,9 , 0 , 10, 0 ,SPECt 1 , 8 ) =2 .5 , 0, 1 ,3803, 1, 3804 » 1 , 1 , 1, 1 , . 86, 5244 , 1 
KONFIGt 1, 9 )=* MIXR *, 10, 15 , 12 ,0 , SPEC 1 1 , 9) =0 , 0 , . 24 , 

KONFIGt 1,10)= *DUCT« , 12, 0, 13 , 0 , SPEC! 1 , 10 )= .06 , 3*0, .90 , 18300 , 

KONFIGt 1 , 1 1) = * NOZZ* , 13 , 0, 14 , 0, SPEC 1 1 , 11 ) =0, 1 , 0 , 0 , .98 , 1 , 0, 0 , 1 , 

KONFIGt 1,12)=' SHFT* , 2 , 8 , 0, 0 , SPEC l 1 , 12 )=4000, 8*1, 

KONFIGt 1,13)=' SHFT' ,5 , 7 , 0, 0 , S PEC t 1 ,13 ) =6000 , 8*1 , 

KONFIGt 1,141= 'CNTL',SPCNTL( 1, 141=1 , 8 , • STAP • , 8 , 13 ,0, 1 , 

KONFIGt 1,15) ='CNTL* ,SPCNTLt 1,15)=1,7, 'STAP', 8, 9, 0,1, 

KONFIGt 1,16)=' CNTL',SPCNTL{ 1, 161=1* 5, • STAP* , 8, 8,0,1 , 

KONFIGt 1,17)=' CNTL* ,SPCNTLtl, 171=1,3, ' DOUT ' , 8 ,9,0, 1, 

KONFIGt 1,18)=' CNTL* ,SPCNTLt 1, 18 ) =1 ,2 , * STAP « ,8, 5, 0,1, 

KONF IG t 1, 19)= * CNTL • , SPCNTL t 1,19) =1,1, 'STAP ', 8,2,0, 1, 

KONFIGt 1,20) = 'CNTL* ,SPCNTLt 1, 201 -1,12 DOUT 1 «8 ,12 ,0,1, 

KONFIGt 1,21)= ’CNTL', SPCNTL ( 1,21)=1, 13, 'DOUT* ,8,13,0,1, 

SEND 

The FOLLOWING REPRESENTS THE CONFIGURATION FOR MQDE= 1 
SIMPLE MODEL 

CONFIGURATION DATA 15 STATIONS 21 COMPONENTS 

COMPONENT NKIND COMPONENT UPSTREAM DOWNSTREAM 

NUMBER TYPE STATIONS STATIONS 


86 , 


, 


, 


A-38 



A-39 


1 

1 

INLET 

1 

2 

4 

COMPRESR 

2 

3 

7 

SPLITTER 

4 

4 

2 

DUCT B 

11 

5 

4 

COMPRESR 

5 

6 

2 

DUCT B 

6 

7 

5 

TURBINE 

8 

8 

5 

TURBINE 

9 

9 

8 

MIXER 

10 

10 

2 

DUCT B 

12 

11 

9 

NOZZLE 

13 

12 

11 

SHAFT 

2 

13 

11 

SHAFT 

5 

14 

12 

CONTROL 

13 

15 

12 

CONTROL 

9 

16 

12 

CONTROL 

8 

17 

12 

CONTROL 

9 

18 

12 

CONTROL 

5 

19 

12 

CONTROL 

2 

20 

12 

CONTROL 

12 

21 

12 

CONTROL 

13 


CONTROL INFORMAT-ION 


14 

VARY DATINP 

1 

OF 

COMPONENT 

15 

VARY DATINP 

1 

OF 

COMPONENT 

16 

VARY DATINP 

1 

OF 

COMPONENT 

17 

VARY DATINP 

1 

OF 

COMPONENT 

18 

VARY DATINP 

1 

OF 

COMPONENT 

19 

VARY DATINP 

1 

OF 

COMPONENT 

20 

VARY DATINP 

1 

OF 

COMPONENT 

21 

VARY DATINP 

1 

OF 

COMPONENT 


CASE IDENTIFICATION 


SIMPLE MOOEL 


0 2 0 

0 4 0 

0 5 11 

0 15 0 

0 6 7 

0 8 0 

7 9 0 

0 10 0 

15 12 0 

0 13 0 

0 14 0 

8 0 0 

7 0 0 

0 8 0 

0 7 0 

0 5 0 

0 3 0 

0 2 0 

0 10 
0 12 0 

0 13 0 


8 SO THAT STATP 8 OF FLOW STATION 13 EQUALS 0.0 

7 SO THAT STATP 8 OF FLOW STATION 9 EQUALS 0.0 

5 SO THAT STATP 8 OF FLOW STATION 8 EQUALS 0.0 

3 SO THAT DATOUT 8 OF COMPONENT 9 EQUALS 0.0 
2 SO THAT STATP 8 OF FLOW STATION 5 EQUALS 0.0 

1 SO THAT STATP 8 OF FLOW STATION 2 EQUALS 0.0 

12 SO THAT DATOUT 8 OF COMPONENT 12 EQUALS 0.0 

13 SO THAT DATOUT 8 OF COMPONENT 13 EQUALS 0.0 



INPUT DATA 


component 


NO. 

TYPF 

DAT INP 1 

DAT I NP 2 

OATINPi 

DATINP4 

DAT I NP5 


DATINP6 

CA T I NP7 

OAT I NP 8 

u'ATlNP S 

1 

INLET 

0.23850D 

03 

0.0 

0.0 


0.0 


0.0 


0.900000 

00 

0.0 


0.0 


o.o 


2 

COMPPESR 

0.180000 

01 

0.0 

0. 100000 

01 

0.376 IOC 

04 

0 .100000 

01 

0.376200 

04 

0. 100000 

01 

0.376500 

04 

0. 100000 

01 

3 

SPLITTER 

0.770000 

00 

0.0 

0.0 


0.0 


0.0 


0.0 


O.C 


0.0 


u . o 


4 

DUCT 8 

0.0 


0.0 

0.0 


0.0 


0.0 


0.0 


0. 0 


0.0 


0.0 


5 

COMPPESR 

0.13000D 

01 

0.26000D-01 

0. 1000,00 

01 

0.370700 

04 

0.100000 

01 

0.370800 

04 

0. 100000 

01 

0.37090D 

04 

0. 10000D 

01 

6 

DUCT 6 

0.10000D 

00 

0.0 

0.0 


0.265000 

0*> 

0.940000 

00 

0.183000 

05 

0.0 


0.0 


0.0 


7 

TURBINE 

0.400000 

01 

0.100000 01 

0.100000 

01 

0.38010D 

04 

0.100000 

01 

0.38020D 

04 

0.100000 

01 

0.100000 

01 

0. 100000 

01 

8 

TURBINE 

0 .250000 

01 

0.0 

0.100000 

01 

0.38030D 

04 

0.100000 

01 

0.380400 

04 

0. 10000D 

01 

o.ioodoo 

01 

0.100000 

01 

c 

MIXER 

0.0 


0.0 

0. 240 OOD 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0. 0 


10 

OUCT 6 

0.600000- 

■01 

0.0 

0.0 


0.0 


0.900000 

00 

0.183000 

05 

0.0 


0.0 


0.0 


11 

NOZZLE 

0.0 


0.100000 01 

0.0 


0.0 


0.580000 

00 

0.100000 

01 

0.0 


0.0 


0.100000 

01 

12 

SHAFT 

0. 40000 D 

04 

0.100000 01 

0.100000 

01 

0. 100000 

01 

0.100000 

01 

0.10000D 

01 

0. 100000 

01 

0. 100000 

01 

0.100000 

01 

13 

SHAFT 

0.600000 

04 

0.10000D 01 

0.10000D 

01 

0.100000 

01 

0.100000 

01 

0.10000D 

01 

0. 100000 

01 

0.10000D 

01 

0.100000 

01 

14 

CONTROL 

0.0 


0.0 

0.0 


0.10000D 

01 

0-0 


0.800000 

01 

0.0 


0.0 


0. 10000D 

01 


15 

CONTROL 

0.0 

0.0 

0.0 

O.iOOOOD 

01 

0.0 

0.80000D 

01 

0.0 


0.0 

O.IOOOOD 

01 

16 

CONTROL 

0.0 

0.0 

0.0 

0.10000D 

01 

0.0 

O.BOOOOD 

01 

0.0 


0.0 

0. 10000D 

01 

17 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.0 


0. 80000D 

01 

0.0 

O.iOOOOD 

01 

18 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.80000D 

01 

0.0 


0.0 

O.IOOOOD 

01 

19 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.80000D 

01 

0.0 


0.0 

0. 10000D 

01 

20 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.0 


0. 80000D 

01 

0.0 

O.IOOOOD 

01 

21 

CONTROL 

0.0 

0.0 

0.0 

0.100000 

01 

0.0 

0.0 


0. 80000D 

01 

0.0 

0. 10000D 

01 



MODE 1 NOW BEING USED 
SW 

I PLT =T , 

IS II=F, 

ISIO=F, 

IOUTCD=2, 

ILENG<1»=2,3,5,6,7,8,9,10, 11, 

IWMEC(1,2)='FAN ',0,2,4,- 
IWMEC(J.,3) = *SPLT«,6*0, 

I WMEC (1,4) = ' DUCT* ,3,5*0, 

I WMEC (1,5)=* HPC ',1,0,0, 

IWMEC(1,6)=*PBUR* ,0,5*0, 

IWMEC(1,7)='HPT *,0,5, 0,3*0, 

IWMEC(1,8)=*LPT ',1,2, 7, 3*0, 

IWMEC‘<1,9)=*FMIX* ,6*0, 

IWMEC(1,10)='DBUR' ,6*0, 

IWMEC(1,1U='N0Z *,1,5*0, 

IWMEC(1,12)='SHAF* ,1,8, 3*0, 2, 

I WMEC (1 ,13 > = ' SHAF* ,2, 7,3*0, 5, 

DESVAU 1,2)=. 524, 1.7,. 45,1= 5 , 3. 5 , 2. 5 , .45 , 0. , 0. , 1. 1 , . 1 , 1 . , 1 . ,0 . , 0. , 
DESVALI 1, 3 )=i 5*0. , 

DESVAL(1,4)=.45»2*0.,-1.,11*0., 

DESVAU 1,5) =.45, 1.35,. 70, 1.2, 2. ,1.5,. 3, 900. ,1400. ,1. ,0 . ,3 . , 1. 1, 1200. ,0 . , 
DESVALC 1,6 1=100., .015, 20., 12*0., 

DESVAU 1,7) =. 5, .28,1. 5,1.5, 1. 5,. 55 ,150000.,! . ,1 .,6*0.., 

DESVAU 1,8) = . 55, .243, 1.5, 2., 3.,. 6, 150000. ,2., 1. ,6*0., 

DESVAU 1,9) =7*0., 1.1, 

DESVALI 1,101*250.,. 016, 13*0., 

DESVAU 1,11) = 1., 14*0. , 

DESVAU 1,12) = 50000. , .3, . 85, 12*0. , 

DESVAL (1, 13 ) = 50000., .3,13*0., 

SEND 

A***###***#** 

* * 

* FAN 2 * 

* * 

************ 2 
DUCT 


M NO VEL T TOT 

P TOT 

P STAT AREA 

GAM 

.524 570. 519. 

1905. 

1579. 

6.9517 1.4005 

U TIP STRESS 

DEN 

W/AREA 

TR 

H/T 

1258.9 15927.2 

0.100 

1.393 

1.800 

0.450 

COMPRESSOR 2 MECHANICAL 

DESIGN 



LOADING N STG 

DIAM 

U TIP C 

RPM 

C RPM 

. 0.874 3.00 

39.98 

1258.9 

7216.9 

7216.9 


FRAME WT = 236.83 


A-41 



STAGE 1 


WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




48. 

35. 0. 0. 

11. 

3.-1 

0.-100 0 • 16 8 

3.50 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.4789 

16.7 0.524 

6.952 

8.99 

19.59 59 

1258.9 

19272. 

95. 

519. 

STAGE 

2 





- 



WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




38. 

24. 0. 24. 

9. 

2.9 

0.100 0.168 

3.00 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.4155 

16.7 0.499 

5.180 

8.99 

17.84 57 

1123.7 

14439. 

95. 

588. 

STAGE 

3 








WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




31. 

18. 0. 24. 

9. 

2.9 

0.100 0.168 

2.50 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.3671 

16.7 0.475 

4.017 

8.99 

16.28 52 

1025.3 

11248. 

81. 

658. 


FRAME WT = 207.45 


N STG WEIGHT LENGTH 
3 715.32 13.51 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM- 
0.450 582. 727. 5447. 4743. 3.2206 1.3951 


PP AD EF 
2.8600 0.8700 

HI HO 

123.95 174.07 


PO TO HP 

5447.2 726.9 16910. 

WI CWI 

238.50 265.00 


******************* TOTAL COMP WEIGHT IS 715.323 


************* 
* * 

* HPC 5 * 

* * 
************ 2 

DUCT 


M NO VEL T TOT 

P TOT 

P STAT AREA 


GAM 

.450 582. 727. 

5447. 

4743. 

1.8196 

1.3951 

U TIP STRESS 

DEN 

W/AREA 

TR 

H/T 


1413.6 28231.1 

0.168 

0.687 

1.200 

0 . 

700 

COMPRESSOR 5 MECHANICAL 

DESIGN 




LOADING N STG 

DIAM 

U TIP C 

RPM 

C 

RPM 

0.538 10.00 

25.58 

1194.1 

12667.1 

10700.2 


A-42 



STAGE 

1 








WD 

WB 

WS 

WN 

WC 

CL 

RHOB RHOD 

AR 


31. 

14. 

14. 

36. 

10. 

4.5 

0.168 0.168 

2.00 


PR 

DEL H 

MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

1.3603 

17. 

8 0. 

450 

1.820 

8.95 

12.79 50 

1413.6 

28231. 

STAGE 

2 






' 


WD 

WB 

WS 

WN 

WC 

CL 

RHOB RHOD 

AR - 


32. 

8. 

8. 

28. 

8. 

3.5 

0.168 0.168 

1.94 


PR 

DEL H 

MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

1.3241 

17. 

8 0. 

435 

1.442 

9.87 

12.79 64 

1413.6 

22411. 


STAGE 3 

WD „ WB WS HN WC CL RHOB RHOD AR 

28. 6. 6. 23. 7. 2.9 0.168 0.168 1.89 

PP DEL H MACH AREA R HUB R TIP NB U TIP STR 

L • 2948 17.8 0.420 1.171 10.48 12.79 78 1413.6 18215. 

STAGE 4 ’ ' 

WD WB WS WN WC CL -RHOB RHOD. AR 

24. 4. 4. 19. 6. 2.4 0.168 0.168 ,1.83 

PP DEL H MACH AREA R HUB -R TIP NB U TIP STR 
1.2704 17.8 0.405 0.970 10.91 12.79 94 1413.6 15103. 

STAGE 5 

WD WB WS WN WC CL RHOB RHOD AR 

21. 3. 3. 17. 5. 2.1 0.168 0.168 1.78 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR 

1.2499 17.8 0.390 0.818 11.23 12.79 109 1413.6 12743. 

STAGE 6 

WD WB WS WN WC CL RHOB RHOD AR 

18. 3. 3. 15. 4. 1.8 0.168 0.168 1.72 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR 

1.2324 17.8 0.375 0.701 11.46 12.79 125 1413.6 10916. 

STAGE 7 

WD WB WS WN WC CL RHOB RHOD AR 

16. 2. 2. 13. 4. 1.6 0.168 0.168 1.67 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR 

1.2173 17.8 0.360 0.608 11.65 12.79 140 1413.6 9476. 

STAGE 8 

WD WB WS WN WC CL RHOB RHOD AR 

28. 3. 3. 12. 3. 1.4 0.286 0.286 1.61 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR 

1.2042 17.8 0.345 0.534 11.79 12.79 155 1413.6 14176. 

< * 

STAGE 9 

WD WB WS WN WC CL RHOB RHOD AR 

25. 2. 2. 11. 3. 1.3 0.286 0.286 1.56 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR 

1.1926 17.8 0.330 0.475 11.91 12.79 170 1413.6 12596. 

STAGE 10 - 

WD WB WS WN WC CL RHOB RHOD AR 

23. 2. 2. 10. 3. 1.2 0.286 0.286 • 1.50 

PR DEL H MACH AREA R HUB -R TIP NB U TIP STR > 

1.1824 17.8 0-315 0.426 12.00 12.79 183 1413.6 11308. 


WEIGHT TIN 
106. 727. 


WEIGHT TIN 
85. 800. 


WEIGHT TIN 
70. 873. 


WEIGHT TIN 
58. 946. 


WEIGHT TIN 
49. 1017. 


WEIGHT TIN 
42. 1089. 


WEIGHT TIN 
36. 1159. 


WEIGHT TIN 
48. 1229. 


WEIGHT TIN 
43. 1299. 


WEIGHT TIN 
40. 1367. 
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N ST6 WEIGHT LENGTH 

10 576.84 22.71 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.300 544. 1436. 51236. 48231. 0.3874 1.3539 

PR AD EF PO TO HP 

5.4060 0.8700 51235.9 1435.6 33965. 

HI HO WI CWI 

174.07 352.23 134.75 61.97 

******************* TOTAL COMP WEIGHT IS 576.837 

************* 

* * 

* P8UR 6 * 

* * 

************ 2 
BURNER NUMBER 6 

RIN ROUT LENGTH MACH WSPEC 

18.842 21.094 18.000 0.055 4.596 

CAS WT LIN WT NOZ WT INC WT FRAME WTOT 

64.7 74.5 17.8 57.8 0.0 214.9 


************* 

* * 

★ HPT 7 * 

* * 

************2 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.500 1186. 2621. 46112. 39327. 0.3977 1.2968 

U TIP STRESS DEN W/AREA TR H/T 

1564.2 11881.4 0.286 0.189 1.000 0.953 

TURBINE 7 MECHANICAL DESIGN 
H/T N STG LOADING AREA 

0.953 1.000 0.280 0.398 

UT RTIP RHUB DEL H RPM TORQ 

1564.2 14.2 13.5 174.5 12667.1 169012. 


STAGE 1 

DISK BLADE VANE HWD CASE AR 
18.3 1.7 6.4 29.4 3.9 1.50 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT LENGTH 
3.6978 174.5 0.500 0.398 13.49 14.15 303 1564.2 11881. 59.66 1.54 

- N STG LENGTH WEIGHT 
1 1.54 59.66 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.550 1149. 2028. 12436. 10243. 1.2074 1.3127 

PR TR AD EF PO TO TO. 1 

3.7081 1.2928 0.8600 12435.6 2027.7 2027.7 
H IN H OUT AREA FLOW HP 

699.28 524.74 5.17 137.56 33969. 
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******************* TOTAL TURB WEIGHT IS 


59.662 


************* 

* * 

❖ LPT 8 * 

* * 

************ 2 
DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.550 1X49. 2028. 12438. 10245. 1.2072 1.3127 

U TIP STRESS DEN W/APEA TR H/T 

727.0 11708.5 0.286 0.777 1.000 0.765 

TURBINE 8 MECHANICAL DESIGN 
H/T N STG LOADING AREA 

0.765 2.000 0.243 1.207 

UT RTIP RHUB DEL H RPM TORQ 

727.0 11.5 8.8 86.9 7216.9 147693. 

STAGE 1 

DISK BLADE VANE HWD CASE AR 

5.0 22.4 66.0 38.9 9.9 2.00 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT LENGTH 

1.4669 43.4 0.550 1.207 8.83 11.54 80 727.0 11709. 142.18 4.77 

STAGE 2 

DISK BLADE VANE HWD CASE AR 

5.6 29.3 86.6 31.1 9.4 3.00 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT LENGTH 

1.5156 43.4 0.575 1.652 8.23 11.98 90 754.3 16019. 162.04 4.38 

FRAME WT = 144.40 


N STG LENGTH WEIGHT 
2 13.73 448.62 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.600 1154. 1722. 5594. 4436. 2.3313 1.3249 

PR TR AD EF PO TO TO.l 

2.2236 1.1779 0.8600 5593.7 1721.5 1721.5 

H IN H OUT AREA FLOW HP 

524.77 437.87 16.80 137.56 16912. 

******************* TOTAL TURB WEIGHT IS 448.624 


************* 

* * 

* FMIX 9 * 

* * 

************2 

LENGTH= 29.28 WEIGHT = 218.11 
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************* 
* * 

* DBUR 10 * 

* * 


************2 
BURNER NUMBER 10 

PIN ROUT LENGTH 

0.0 24.120 48.000 

CAS WT LIN WT NOZ WT 

23.7 120.0 296.1 


MACH WSPEC 

0.143 11.899 

INC WT WT OT 
0.0 439.8 


************* 

* * 

* NOZ 11 * 

* * 

************2 
NOZZLE 11 

WE IGHT= 206.89 LENGTH^ 48.239 TR WT= 0.0 


************* 
* * 


* DUCT 4 * 

* * 

************ 2 
DUCT , 4 

RH= 12.76 RT= 15.07 LENG= 55.98 
APEA = 1.401 RHO=. 168 

CAS WT INC WT WT OT 

10.1546 8.6000 18.7546 


************* 
* * 

* SHAF 12 * 

* * 
********** ** 2 
SHAFT 12 

DO DI 

3.54 3.01 


LENG 

42.26 


DN WT 

0.65 34.71 


************* 
* * 

* SHAF 13 * 

* * 
************2 
SHAFT 13 

DO DI 

4.32 3.94 


LENG DN WT 

18.00 1.39 13.04 


************* 

* * 

* ACCS WT * 

* * 
************2 

ACCS WT= 273.972 

A-46 



WEIGHT INPUT DATA IN ENGL UNITS 
WEIGHT OUTPUT DATA IN ENGL UNITS 


COMP WT COMP ACCU UPSTREAM RADIUS DOWNSTREAM RADIUS 

NO EST LEN LEN RI RO RI RO RI RO RI RO NSTAGE 

1 0 . 0 . 0 # 0 « 0 . 0 . 0 . 0 . 0 * 0 . 0 . 

2 715. 14. 14. 9. 20. 0. 0. 9. 15. 0. 0. 

3 0. 0. 14. 0. 0. 0. 0. 9. 13. 13. 15. 

4 19. 56. 69. 13. 15. 0. 0. 13. 15. 0. 0. 

5 577. 23. 36. 9. 13. 0. 0. 12. 13. 0. 0. 

6 215. 18. 54. 19. 21. 0. 0. 19. 21. 0. 0. 

7 60. 2. 56. 13. 14. 0. 0. 12. 14. 0. 0. 

8 449. 14. 69. 9. 12. 0. 0. 7. 13. 0. 0. 

9 218. 29. 99. 0. 15. 15. 21. 0. 21. 0. 0. 

10 440. 48. 147. 0. 24. 0. 0. 0. 24. 0. 0. 

11 207. 48. 195. 0. 24. 0. 0. 0. 22. 0. 0. 

12 35. 0. 0. 9. 20. 13. 14. 0. 0. 0. 0. 

13 13. 0. 0. 9. 13. 0. 0. 0. 0. 0. 0. k 

TOTAL BARE ENGINE WEIGHT= 2947. ACCESSORIES^ 273.97 


ESTIMATED TOTAL LENGTH= 195. ESTIMATED MAXIMUM RADIUS^ 24. 
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BBBB6B88 

pp MMMMMMMMMMMMMMMMMMMM 

CCC PPPPPP MMMMMMMMM 

c cccccdddddddddddodddddddppppppddpododdddqdmmmmmmmmm 
C CCCCCCCCCCCCCCCPPPPPPDDDDDDTTCDDDODODTMMM 

C C CCCCCCCCCCP TTTTTTTTTT mmm 

CCCCCCCCCCCCC TTTTTTTT T mmm 

TT MMMM 


C/L 


MMM 

MMM 

-C/L C/L C/L C/L MMMMMMMMMMMMMMMMMMMB BBBB88B 


BBBBBBBBBBBBBBBBBBBBBBBNNNNNNNNNNNNNNNNNNNNNNNNNNN 


NNNNNN 


BBBBBBBBBBB8B6BBBB8BBBBB C/L C/L C/L 


X 

oo 


UPDATED INPUT DATA TO PEFLECT CALCULATED INPUT 
COMPONENT 


NO. 

TYPE 

DATINP1 


DAT1NP2 


0ATINP3 

DAT INP4 

DATINP5 

DATINP6 


DATINP7 


DATINP8 


DAT INP9 


1 

INLET 

0.23850D 

03 

0.0 


0. 14696D 

02 

0.0 


0.0 


0.90000D 

GO 

0.0 


0.0 


0.0 


2 

COMPRES R 

0.1800QD 

01 

0.0 


0.400000 

04 

0.37610D 

04 

0.26590D 

03 

0.37620D 

04 

0. 1011 3D 

01 

0.37630D 

04 

0.99222D 

00 

3 

SPUTTER 

0.77OO0D 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


A 

DUCT B 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


5 

COMPRESR 

0.13000D 

01 

0. 26000 D- 

•01 

0.51455D 

04 

0.370700 

04 

G.61418D 

02 

0.37080D 

04 

0.90909D 

00 

0.37090D 

04 

0.13246U 

01 

e 

DUCT B 

0.10000D 

00 

0.0 


0.0 


0.265000 

04 

0.94000D 

CO 

0.183000 

05 

0.0 


0.0 


0.0 


7 

TURBINE 

0.40000D 

01 

0.10000D 

01 

0.46733D 

00 

0.38010D 

04 

0.70645D 

00 

0.380200 

04 

0.96727D 

00 

0.90244D 

00 

0.100000 

01 

8 

TURBINE 

0.25000D 

01 

0.0 


0.38577D 

00 

0.38030D 

04 

0.72633D 

00 

0.380400 

04 

0.940120 

00 

0.81558D 

00 

0. lOOOOD 

01 

9 

MIXER 

0.70773D 

03 

0.639250 

03 

0.240000 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


10 

DUCT B 

0. 60000 D- 

•01 

0.0 


0.0 


0.0 


0.90000D 

00 

0.183000 

05 

0.0 


0.0 


0.0 


11 

NOZZLE 

0.47288D 

03 

0.10000D 

01 

0.0 


0.0 


0.98000D 

00 

D.10000D 

01 

0.0 


0.0 


0. lOOOOD 

01 

12 

SHAFT 

0.400000 

04 

0.10000D 

01 

0.10000D 

01 

0.10000D 

01 

0.10000D 

01 

0.10000D 

01 

0. 10000D 

01 

0. lOOOOD 

01 

0. lOOOOD 

01 

13 

SHAFT 

0.60000D 

04 

0.100000 

01 

0.10000D 

01 

0.100000 

01 

0 . 10000D 

01 

0.100000 

01 

0. lOOOOD 

01 

0. lOOOOD 

01 

0. 100000 

01 


CASE IDENTIFICATION SIMPLE MODEL 



STATION property output data 


FLOW 

WEIGHT 


TOTAL 


TOTAL 


FUEL /A I P 

REFERRED 

MACH 


STATIC INTERFACE CORRECTED 

STATION 

FLOW 


PRESSURE 

TEMPERATURE 

RATIO 

FLOW 


NUMBER 


PRESSURE 

FLOW ERROR 


STATP1 


STATP2 


STATP3 


STATP4 

STATP5 


STATP6 


STATP7 

STATP8 

1 

0.23850D 

03 

0.14696D 

02 

0.51867D 

03 

0.0 

0.23850D 

03 

0.0 


0.0 

0.0 

2 

0.23850D 

03 

0.13226D 

02 

0.51867D 

03 

0.0 

0 .264990 

03 

0.0 


0.0 

0.0 

4 

0.23850D 

03 

0.37828D 

02 

0.72687D 

03 

0.0 

0.10S69D 

03 

0.0 


0.0 

0.0 

5 

0.134750 

03 

0.37B28D 

02 

0.72687D 

03 

0.0 

0.619700 

02 

0.0 


0.0 

0.0 

fc 

0.13124D 

03 

0 . 3558 ID 

03 

0.14356D 

04 

0.0 

0 . 901 83 D 

01 

0.0 


0.0 

0.0 

7 

0.35034C 

01 

0 .355810 

03 

0. 14356D 

04 

0.0 

0.0 


0.0 


0.0 

0.0 

8 

0.13405D 

03 

0.32022D 

03 

0.26500D 

04 

0.21425D-01 

0.13906D 

02 

0.0 


0.0 

0.0 

c 

0.137560 

03 

0.86376D 

02 

0.202780 

04 

0.2086BD— 01 

0.46276D 

02 

0.0 


0.0 

0.0 

10 

0. 13756D 

03 

0.38B49D 

02 

0.17216D 

04 

0. 208680-01 

0.948010 

02 

0.24000D 

00 

0.3740 ID 02 

0.0 

11 

0.103750 

03 

0 .378280 

02 

0.726870 

03 

0.0 

0.47717D 

02 

0.0 


0.0 

0.0 

12 

0. 24131D 

03 

0. 37401 D 

02 

0.13157D 

04 

0.11 790 D-01 

0.131010 

03 

0.0 


0.0 

0.0 

13 

0.241310 

03 

0.35157D 

02 

0.13157D 

04 

0.1 1 790D-01 

0.160650 

03 

O.IOOOOD 

01 

0.18780D 02 

0.0 

14 

0.241310 

03 

0.35157D 

02 

0.131570 

04 

0.117900-01 

0.160650 

03 

Q.11729D 

01 

0.146960 02 

0.0 

15 

0.103750 

03 

0 . 37828D 

02 

0. 72687D 

03 

0.0 

0.47717D 

02 

0.127340 

00 

0.374010 02 

0.0 


COMPONENT OUTPUT DATA 

COMPONENT 

NC. TYPE DATOUT1 DATOUT2 DAT0UT3 CAT0UT4 DATOUT 5 DA TOUT 6 DATOUT7 DATOUT8 OATOUT 9 


1 INLET 0.0 0.0 0.0 O.IOOOOD 01 

2 COMPRESR -0.16912D 05 0.400000 04 0.0 0.180000 01 

3 SPLITTER 0.77000D 00 0.0 0.0 0.0 

> 4 DUCT B 0.0 0.0 0.0 0.0 

X. 5 COMPRESP -0.339690 05 0.600000 04 0.0 0.13000D 01 

^ 6 DUCT B 0.0 O.IOOOOD 00 0.0 0.21425D-01 

7 TURBINE 0.339690 05 0.60000D 04 O.IOOOOD 01 0.40000D 01 

9 TURBINE 0. 1691 2D 05 0.40000D 04 O.IOOOOD 01 0.25000D 01 

9 MIXER 0.70773D 03 0.63925D 03 0.10387D 01 0.10114D 01 

10 DUCT B 0.0 0.600000-01 0.0 0.0 

11 NOZZLE O.13705D 05 0.183790 04 0.23923D 01 0.48393D 03 

12 SHAFT 0.0 0.400000 04 0.400000 04 0.40000D 04 


O.IOOOOD 

01 

0.0 


0.90000D 

00 

G. 100000 

01 

0.0 


0.400000 

04 

O.IOOOOD 

01 

0.26590D 

03 

0.870000 

00 

0.28600D 

01 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.51A55D 

04 

0.98500D 

00 

0. 61418D 

02 

0. 87000D 

00 

0.94060D 

01 

0.0 


0.10123D 

05 

0.0 


0.94000D 

00 

0.265000 

04 

0.46733D 

00 

0.56800D 

04 

0.70645D 

00 

0.86000D 

00 

0.37073D 

01 

0.38S77D 

00 

0.524400 

04 

0. 72633D 

00 

0.860000 

00 

0.22234D 

01 

0.47274D 

03 

0. 16773D 

03 

0.0 


0. 94990 D- 

•16 

O.IOOOOD 

01 

0.0 


0.0 


0.0 


0.0 


0.0 


0.47288D 

03 

O.IOOOOD 

01 

0.98000D 

00 

0. 18721D 

01 

0. 239230 

01 

0.0 


0.0 


0.0 


0.0 


0.0 



13 SHAFT 

0.0 

0.60000D 04 

0.60000D 04 0.60000D 

04 0.0 

0.0 0.0 

o 

• 

o 

MACH= 0.0 


ALTITUDE= 0. 

RECOVERY= 0.9000 0 

ITERATIONS 

2 PASSES 


AIRFLOW (LB/SEC) 

238.50 

GROSS THRUST 

13785.01 

FUEL FLOW (LB/HR) 

10122.81 

NET THPUST 


13785.01 

TSFC 

0.7343 

NET THRUST/AIRFLOW 

57.7988 

TOTAL INLET 

DRAG 

0.0 

TOTAL BRAKE SHAFT HP 

0.0 

BOATTAIL DRAG 

0.0 

INSTALLED THRUST 

13785.01 

INSTALLED TSFC 

0.7343 

SPILLAGE + LIP DRAG 

0.0 


SIMPLE MODEL 

LD LONG=F,ORAW=F,BOAT=T,SPILL=T, AMINDS=1.6 CEND 



TABLE DATA INPUT SUMMARY 16 TABLES 


TABLE NUMBER REFERENCE NUMBER ARRAY LOCATION 


1 

3761 

1 

2 

3762 

1075 

3 

3763 

2149 

4 

3704 

3223 

5 

3705 

4297 

6 

3706 

5371 

7 

3707 

6445 

8 

3708 

7681 

9 

3709 

8917 

10 

3801 

10153 

11 

3802 

10606 

12 

3803 

11203 

13 

3804 

11656 

14 

3901 

12397 

15 

3902 

12799 

16 

3903 

13213 


CD MODE 
IWT=T, 
KONFIGt 
KONFIG( 

1, 

KONF IG( 
KONFIG( 
KONF IG( 
9.406, . 
KONFIGt 
KONFIGt 
KONFIGt 
KONFIGt 
KONFIGt 
KONFIGt 
KONFIGt 
KONFIGt 
KONFIGt 
KONFIGt 
KONF IG< 
KONFIGt 
KONFIGt 
KONFIGt 
KONFIGt 
KONFIGt 
SEND 


= 1, 

i,l) = 
1,2 ) = 

1 . 4 ) = 
1 , 3 ) = 

1 . 5 ) = 
985 , 

1 . 6 ) = 

1.7) = 

1 . 8 ) = 

1 . 9 ) = 

1 . 10 ) 
1 , 11 ) 
1 , 12 ) 

1 . 13 ) 

1 . 14 ) 

1 . 15 ) 

1 . 16 ) 

1 . 17 ) 

1 . 18 ) 

1 . 19 ) 

1 . 20 ) 
1,21) 


• INLT* 
' COMP' 

• DUCT' 
• SPLT ' 
•COMP' 

•DUCT' 
' TUP B * 
•TURB* 
' M I XR ' 
= * DUCT 
='NOZZ 
= ' SHFT 
= ' SHFT 
= ' CNTL 
= ' CNT L 
= ' CNTL 
= ' CNTL 
= ' CNTL 
= ' CNTL 
=' CNTL 
= ' CNTL 


DATA STORAGE ALLOCATION 20000 
DATA STORAGE NOT USED 6385 


1. 0. 2.0. 5PEC t 1,1) =238.5,4*0, 0.9, 

2. 0. 4.0. 5PECt 1,2)= 1.8, 0,1, 3761, 1,3762, 1, 3763 , 1 , 0, 0, . 87 ,2 . 86 , 

11. 0. 15.0. 5PEC! 1,4)=6*0, 

4.0. 5 . 11. 5PECt l» 3 )=.77» 

5, 0,6,7, SPECt 1,5) = 1.3,. 026, 1,3707, 1,3708,1,3709, 1,0,0,. 87, 

6. 0. 8.0. 5PEC tl ,6) = .10,0,0, 2650,. 94, 18300, 

8. 7.9.0. 5PECt 1,7 1=4,1,1,380 1,1, 380 2, 1,1, 1,1,. 86, 5680,1, 

9. 0. 10.0. 5PECt 1,8 )=2. 5, 0,1, 3803, 1,3804, 1,1, 1,1,. 86, 5244,1, 

10. 15. 12.0. 5PECt 1,9) =0,0,. 24, 

,12, 0,13,0, SPEC (1,10)= .06,3*0, .90,18300, 

,13, 0,14,0, SPEC (1,11) =0,1, 0,0,. 98, 1,0, 0,1, 

,2, 8, 0,0, SPEC ( 1* 12 )=4000» 8*1, 

,5,7,0, 0, SPECt 1,13 )=6000 ,8*1 , 

,SPCNTL( 1,14 )=1, 8, *STAP' ,8,13,0,1, 

, S PC NIL (1,15)=1,7, 'STAP* ,8,9,0, 1, 

,SPCNTL( 1,16) = 1,5, 'STAP' ,8, 8, 0,1, 

, SPCNTL ( 1, 17 ) = 1* 3, 'DOUT* , 8,9,0, 1, 

,SPCNTL( 1,18) =1,2, 'STAP* ,8, 5, 0,1, 

, SPCNTL (1,19) =1,1, 'STAP' ,8, 2, 0,1, 

, SPCNTL ( l, 20) =1,12, 'DOUT' ,8,12,0,1, 

, SPCNTL ( 1, 21 ) = 1, 13, 'DOUT* ,8,13,0,1, 


THE FOLLOWING REPRESENTS THE CONFIGURATION FOR MODE= 1 
SIMPLE MODEL 

CONFIGURATION DATA 15 STATIONS 21 COMPONENTS 


COMPONENT 

NUMBER 


NKIND 


COMPONENT 

TYPE 


UPSTREAM 

STATIONS 


DOWNSTREAM 

STATIONS 


A-50 


RKPSODUCffirnTY OF fHS 

momkh FA-GB ss POOR 



A-51 


1 

1 

INLET 

1 

2 

4 

COMPRESR 

2 

3 

7 

SPLITTER 

4 

4 

2 

DUCT B 

11 

5 

4 

COMPRESR 

5 

6 

2 

DUCT B 

6 

7 

5 

TURBINE 

8 

8 

5 

TURBINE 

9 

c 

8 

MIXER 

10 

10 

2 

OUCT B 

12 

11 

9 

NOZZLE 

13 

12 

11 

SHAFT 

2 

13 

11 

SHAFT 

5 

14 

12 

CONTROL 

13 

15 

12 

CONTROL 

9 

16 

12 

CONTROL 

8 

17 

12 

CONTROL 

9 

18 

12 

CONTROL 

5 

19 

12 

CONTROL 

2 

20 

12 

CONTROL 

12 

21 

12 

CONTROL 

13 


CONTROL INFORMATION 


14 

VARY 

DATINP 

1 

OF 

COMPONENT 

15 

VARY 

DATINP 

1 

OF 

COMPONENT 

16 

VARY 

DATINP 

1 

OF 

COMPONENT 

17 

VARY 

DATINP 

1 

OF 

COMPONENT 

18 

VARY 

DATINP 

1 

OF 

COMPONENT 

19 

VARY 

DATINP 

1 

OF 

COMPONENT 

20 

VARY 

DATINP 

1 

OF 

COMPONENT 

21 

VARY 

DATINP 

1 

OF 

COMPONENT 


CASE IDENTIFICATION 


SIMPLE MODEL 


0 2 0 

0 4 0 

0 5 11 

0 15 0 

0 6 7 

0 8 0 

7 9 0 

0 10 0 

15 12 0 

0 13 0 

0 14 0 

8 0 0 

7 0 0 

0 8 0 

0 7 0 

0 5 0 

0 3 0 

0 2 0 

0 10 
0 12 0 

0 13 0 


8 SO THAT ST ATP 8 OF FLOW STATION 13 EQUALS 0.0 

7 SO THAT ST ATP 8 OF FLOW STATION 9 EQUALS 0.0 

5 SO THAT ST ATP 8 OF FLOW STATION 8 EQUALS 0.0 

3 SO THAT DATOUT 8 OF COMPONENT 9 EQUALS 0.0 
2 SO THAT ST ATP 8 OF FLOW STATION 5 EQUALS 0.0 

1 SO THAT STATP 8 OF FLOW STATION 2 EQUALS 0.0 

12 SO THAT DATOUT 8 OF COMPONENT 12 EQUALS 0.0 

13 SO THAT DATOUT 8 OF COMPONENT 13 EQUALS 0.0 



COMPONENT 


NO. 

TYPE 

DAT INP 1 

DATINP2 

DATINP3 


DATINP4 


DAT I NP 5 


DAT INPfc 

DATINP7 


OAT I NP 8 

OAT INP 9 

1 

INLET 

0.238500 03 

0.0 

0.0 


0.0 


0.0 


0.90000D 

00 

0.0 


0.0 


0.0 


C. 

COMPRESR 

0.18000D 01 

0.0 

O.IOOOOD 

01 

0 . 376 10 D 

04 

O.IOOOOD 

01 

0.37620D 

04 

0. 10000D 

01 

0. 37630D 

04 

0. 10000D 

01 

"3L 

SPLITTEP 

0.77000D 00 

0.0 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


4 

DUCT B 

0.0 

0.0 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


5 

COMPPESR 

0.130000 01 

0.26000D-01 

0.100000 

01 

0.37070D 

04 

O.IOOOOD 

01 

0 .370800 

04 

0. 10000D 

01 

0.370900 

04 

0. 10000D 

01 

6 

DUCT B 

0.100000 00 

0.0 

0.0 


0.265000 

04 

0.94000D 

00 

0.18300D 

05 

0. 0 


0.0 


0.0 


7 

TURBINE 

0.400000 01 

0.100000 01 

O.IOOOOD 

01 

0.380100 

04 

O.IOOOOD 

01 

0.38020D 

04 

0. 10000D 

01 

0. 10000C 

01 

0. 10000D 

01 

8 

TURBINE 

0.250000 01 

0.0 

O.IOOOOD 

01 

O.30O3OD 

04 

O.IOOOOD 

01 

0.380400 

04 

O.IOOOOD 

01 

O.IOOOOD 

01 

0.10000C 

01 

5 

MIXER 

0.0 

0.0 

0.24000D 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


10 

DUCT B 

0. 60000 D-01 

0.0 

0.0 


0.0 


0.90000D 

oc 

0.18300D 

05 

0.0 


0.0 


0.0 


11 

NOZZLE 

0.0 

0.10000D 01 

0.0 


0.0 


0.98000D 

00 

0. lOOOOo 

01 

0.0 


0.0 


0. 10000C 

01 

12 

SHAFT 

0.40000D 04 

0.10000D 01 

O.IOOOOD 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

0.10000C 

01 

O.IOOOOD 

01 

0. 10000D 

01 

0. 10000D 

01 

13 

SHAFT 

0.60000D 04 

O.iOOOOD 01 

O.IOOOOD 

01 

O.IOOOOD 

01 

0.100000 

01 

0.10000L 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

O.IOOOOD 

01 

> 14 

CONTROL 

0.0 

0.0 

0.0 


O.IOOOOD 

01 

0.0 


0.80000C 

01 

0.0 


0.0 


0. 10000D 

01 


15 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.800000 

01 

0.0 


0.0 

O.IOOOOD 

01 

16 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.800000 

01 

0.0 


0.0 

0. 100003 

01 

IT 

CONTROL 

0.0 

0.0 

0.0 

0. 10000D 

01 

0.0 

0.0 


0. 80000D 

01 

0.0 

0.100000 

01 

18 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0.80000D 

01 

0.0 


0.0 

0. 10000C 

01 

19 

CONTROL 

0.0 

0.0 

0.0 

O.IOOOOD 

01 

0.0 

0. 800000 

01 

0.0 


0.0 

0. 10000D 

01 

20 

CONTROL 

0.0 

0.0 

0.0 

0.100000 

01 

0.0 

0.0 


0. 80000D 

01 

0.0 

O.iOOOOD 

01 

21 

CONTROL 

0.0 

0.0 

0.0 

0. 10000D 

01 

0.0 

0.0 


0.80000D 

01 

0.0 

0. IOOjOD 

01 



MODE 1 NOW BEING USED 
SW 

I PLT =T , 

I S I I=F , 

ISIO=F, . 

I0UTCD=2, 

I L ENG (I ) =2, 3, 5, 6, 7, 8, 9, 10, II, 

I WMEC (1,2)=" FAN SI, 1,4, 3*0, 

IWMEC(1,3) = 'SPLTS 6*0, 

I WMEC < 1, 4) = « DUCT SO, 5*0, 

I WMEC ( 1 , 5) = * LPC SI, 2, 4*0, 

I WMEC (1,6) = 'PBUPS 1,5*0, 

I WMEC{ 1,7)=* HPT SO, 5, -5, 3*0, 

IWMEC(1,8) = 'LPT SI, 2, 7, 3*0, 

I WMEC (1,9)=* MIX ' ,6*0, 

I WMEC (1,10)= 'DUCTS 2, 4*0, 

I WMEC ( 1 , 11 ) = ' NOZ SI, 10, 4*0, 

IWMEC(1,12)='SHAFS1,8,3*0,2, 

IWMEC(1,13) = 'SHAFS2,7,3*0, 5, 

DESVAK 1,2)=. 524, 1.7,. 45, 1.5, 3. 5, 2. 5,. 45,0. ,0. , 1. ,0. , 2. ,1., 
DESVAL( 1,3 )=15*0.» 

DESVAK 1,4) = . 45, 2*0., 11., 11*0., 

DESVAL(1,5)=.45,1.35,.70,1.2,2.,1.5,.3,0.,0.,1.,0.,2.,1., 

DESVAL(1,6)=100.,.015, 

DESVAL(1,7)=.5,.28,1.5,1.5,1.5,.55,150000.,3.,1.,6*0. , 
DESVAK 1,8) = . 55, .243, 1 . 5 , 2 . , 3. , . 6, 150000. , 3. , 1. , 6*0. , 
DESVAK 1,9) = 15*0., 

DESVAK 1,10) = . 1,2., 

DESVAK 1,111 = 1. ,14*0., 

DESVAK 1,12) = 50000.,. 3,. 85, 12*0. , 

DESVAK 1,131 = 50000., .3,13*0., 

SEND 

******** ** * ** 

* * 

* FAN 2 * 

* * 

************2 

DUCT 


M NO VEL T TOT 

P TOT 

P STAT 

AREA 

GAM 

.524 570. 519. 

1905. 

1579. 

6.9517 1.4005 

U TIP STRESS 

DEN 

W/AREA 

TR 

H/T 

1258.9 26757.6 

0.168 

2.339 

1.800 

0.450 

COMPRESSOR 2 MECHANICAL 

DESIGN 



LOADING N STG 

DIAM 

U TIP C 

RPM 

C RPM 

0.874 3.00 

39.98 

1258.9 

7216.9 

7216.9 


FRAME WT = 95.67 
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STAGE 1 

WD WB WS WN WC CL RHOB RHQO AR 

65. 59. 59. 0. 26. 7.4 0.168 0.168 3.50 

PR DEL H MACH AREA R HUB R TIP NB U TIP ST-R WEIGHT 

1.4789 16.7 0.524 6.952 8.99 19.99 59 1258.9 26758. 209. 

STAGE 2 

WD WB WS WN WC CL RHOB RHOD AR 

91. 34. 34. 51. 21. 6.2 0.168 0.168 3.00 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT 

1.4155 16.7 0.499 5.180 11.02 18.95 67 1193.2 20191. 231. 

STAGE 3 

WO WB WS WN WC CL RHOB RHOD AR 

97. 23. 23. 46. 19. 5.7 0.168 0.168 2.50 

PR OEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT 

1.3671 16.7 0.475 4.017 12.17 18.23 70 1148.1 15768. 208. 

FRAME WT = 285.15 


N STG WEIGHT LENGTH 
3 1028.68 28.80 


DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.450 582. 727. 5447. 4743. 3.2206 1.3951 


PR AD EF 
2.8600 0.8700 

HI HQ 

123.95 174.07 


PO TO HP 

5447.2 726.9 16910. 

WI CWI 

238.50 265.00 


j):#******^***^**^* TOTAL COMP WEIGHT IS 1028.680 


* * 

* LPC 5 * 

* * 

DUCT 

M NO VEL T TOT 

0.450 582. 727. 

U TIP STRESS 
1285.1 23331.5 


P TOT P STAT 
5447. 4743. 

DEN W/AREA 
0.168 0.687 


AREA GAM 
1.8196 1.3951 

TR H/T 

1.200 0.700 


COMPRESSOR 5 MECHANICAL DESIGN 

LOADING N STG DIAM U TIP C RPM C RPM 
0.651 10.00 25.58 1085.6 11515.5 9727.5 


FRAME WT = 118.22 


TIN 

519. 


TIN 

588. 


TIN 

658. 
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STAGE 1 


WD 

MB WS WN 

WC 

CL 

RHOB RHOD 

AR 




24. 

14. 14. 36. 

10. 

4.5 

0,168 0.168 

2 .00 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.3603 

17.8 0.450 

1.820 

8.95 

12.79 50 

1285.1 

23331. 

99. 

727 

STAGE 

2 








WO 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




20. 

9. 9. 29. 

8. 

3.6 

0.168 0.168 

1.94 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.3241 

17.8 0.435 

1.442 

9.42 

12.45 60 

1250.7 

18516. 

75. 

800 

STAGE 

3 








WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




16. 

6. 6. 25. 

7. 

3.0 

0.168 0.168 

1.89 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2948 

17.8 0.420 

1.171 

9.75 

12.19 70 

1225.3 

15048. 

59. 

873 

STAGE 

4 








WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




13. 

4. 4. 21. 

6. 

2.6 

0.168 0.168 

1.83 




PP 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2704 

17.8 0.405 

0.970 

9.98 

12.00 81 

1206.2 

12477. 

49. 

946 

STAGE 

5 








WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




11. 

3. 3. 18. 

5. 

2.2 

0.168 0.168 

1.78 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2499 

17.8 0.390 

0.818 

10.15 

11.86 93 

1191.5 

10527. 

41. 

1017 

STAGE 

6 






- 


WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




10. 

3. 3. 16. 

4. 

2.0 

0.168 0.168 

1.72 




PR 

DEL H MACH 

AREA R 

HUB 

P TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2324 

17.8 0.375 

0.701 

10.28 

11.74 104 

1180.1 

9018. 

36. 

1089 

STAGE 

7 








WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




9. 

2. 2. 14. 

4. 

1.8 

0.168 0.168 

1.67 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2173 

17.8 0.360 

0.608 

10.39 

11.65 115 

1171.0 

7829. 

32. 

1159 

stage 

8 








WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




16. 

3. 3. 13. 

3. 

1.6 

0.286 0.286 

1.61 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.2042 

17.8 0.345 

0.534 

10.47 

11.58 126 

1163.6 

11712. 

39. 

1229 

STAGE 

9 








WD 

WB WS WN 

WC 

CL 

RHOB PHOD 

AR 




15. 

3. 3. 12. 

3. 

1.5 

0.286 0.286 

1.56 




PP 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.1926 

17.8 0.330 

0.475 

10.53 

11.52 136 

1157.7 

10407. 

36. 

1299 

STAGE 

10 








WD 

WB WS WN 

WC 

CL 

RHOB RHOD 

AR 




15. 

2. 2. 11. 

3. 

1.4 

0.286 0.286 

1.50 




PR 

DEL H MACH 

AREA R 

HUB 

R TIP NB U 

TIP 

STR 

WEIGHT 

TIN 

1.1824 

17.8 0.315 

0.426 

10.59 

11.47 146 

1152.8 

9343. 

33. 

1367 
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N STG WEIGHT LENGTH 
10 616.48 25.43 


OUCT 

M NG VEL T TOT P TOT P STAT AREA GAM 
0.300 544. 1436. 51236. 48231. 0.3874 1.3539 

PR AD EF PO TO HP 

'9.4060 0.8700 51235.9 1435.6 33965. 

HI HO WI CWI 

174.07 352.23 134.75 61.97 

************* ****** TOTAL COMP WEIGHT IS 616.477 

************* 

* * 

* PBUR 6 * 

* * 

************ 2 
BURNER NUMBER fc 

RIN ROUT LENGTH MACH WSPEC 

8.758 12.909 18.000 0.055 4.596 

CAS WT LIN WT NOZ WT INC WT FRAME WTOT 

24.2 40.4 17.8 16.4 151.3 250.2 


************* 

* * 

* HPT 7 * 

* * 

************2 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.500 1186. 2621. 46112. 39327. 0.3977 1.2968 

U TIP STRESS DEN W/AREA TR H/T 

1106.0 9819.5 0.286 0.246 1.000 0.922 

TURBINE 7 MECHANICAL DESIGN 
H/T N STG LOADING AREA 

0.922 2.000 0.280 0.398 

UT RTIP RHUB DEL H RPM TORQ 

1106.0 11.0 10.1 174.5 11515.5 185913. 

STAGE 1 

DISK BLADE VANE HWD CASE AR 

6.4 2.3 8.4 21.7 4.0 1.50 

PP DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT LENGTH 

1.8453 87.3 0.500 0.398 10.14 11.01 180 1106.0 9820. 42.84 2.02 

STAGE 2 

DISK BLADE VANE HWD CASE AR 

10.8 6.4 23.7 35.5 6.8 1.50 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT LENGTH 

2.0063 87.3 0.525 0.666 10.14 11.55 116 1160.9 16456. 83.19 3.29 

N STG LENGTH WEIGHT 
2 5.31 126.03 
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DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.550 1149. 2028. 12436. 10243. 1.2074 1.3127 

PR TR AD EF PO TO TO.l 

3.7081 1.2928 0.8600 12435.6 2027.-7 2027.7 
H IN H OUT AREA FLOW HP 

699.28 524.74 5.17 137.56 33969. 

******************* TOTAL TURB WEIGHT IS 126.028 


************* 

* * 

* LPT 8 * 

* * 

************2 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.550 1149. 2028. 12438. 10245. 1.2072 1.3127 

U TIP STRESS DEN W/AREA TR H/T 

727.0 11708.5 0.286 0.777 1.000 0.765 

TURBINE 8 MECHANICAL DESIGN 
H/T N STG LOADING AREA 

0.765 2.000 0.243 1.207 

UT RTIP RHUB DEL H RPM TORQ 

727.0 11.5 8.8 86.9 7216.9 147693. 

STAGE 1 

DISK BLADE VANE HWD CASE AR 

5.0 22.4 66.0 38.9 9.9 2.00 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT LENGTH 
1.4669 43.4 0.550 1.207 8.83 11.54 80 727.0 11709. 142.18 4.77 


STAGE 2 

DISK BLADE VANE HWD CASE AR 

6.9 27.6 81.4 34.0 9.3 3.00 

PR DEL H MACH AREA R HUB R TIP NB U TIP STR WEIGHT LENGTH 
1.5156 43.4 0.575 1.652 8.83 12.39 98 780.6 16019. 159.21 4.17 

FRAME WT = 167.79 


N STG LENGTH WEIGHT 
2 13.41 469.18 

DUCT 

M NO VEL T TOT P TOT P STAT AREA GAM 
0.600 1154. 1722. 5594. 4436. 2.3313 1.3249 

PR TR AD EF PO TO TO.l 

2.2236 1.1779 0.8600 5593.7 1721.5 1721.5 

H IN H OUT AREA FLOW HP 

524.77 437.87 16.80 137.56 16912. 
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******* ****** ****** TOTAL TURB WEIGHT IS 469.184 


************* 

* # 

* DUCT 10 * 

* * 

************2 
DUCT , 10 

RH= 0.0 RT= 28.80 LENG= 
AREA= 18.098 RH0=.286 

CAS WT INC WT 

45.8800 0.0 


************* 

* * 

* NOZ 11 * 

* * 

************2 
NOZZLE 11 

WEIGHT= 295.02 LENGTH= 57 


************* 

* * 

* DUCT 4 * 

* * 

************2 
DUCT t 4 

RH= 15.78 RT= 17.69 LENG= 
AREA= 1.401 RH0=.168 

CAS WT INC WT 

15.5408 13.8556 


************* 

* * 

* SHAF 12 * 

* * 

************2 
SHAFT 12 

DO DI LENG DN 

3.54 3.01 48.74 0.65 


************* 

* * 

* SHAF 13 * 

* * 
************2 
SHAFT 13 

DO DI LENG 

4.35 3.94 18.00 

************* 

* * 

* ACCS WT * 

* * 
************2 


DN 

1.27 


57.60 

WTOT 

45.8800 


.604 TR WT = 0.0 


62.16 

WTOT 

29.3964 


WT 

40.03 


WT 

14.33 


ACCS WT= 262.021 
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WEIGHT INPUT DATA IN ENGL UNITS 
WEIGHT OUTPUT DATA IN ENGL UNITS 


COMP WT COMP ACCU UPSTREAM RADIUS DOWNSTREAM RADIUS 

NO EST LEN LEN RI RO RI RO RI RO RI RO NST AGE 

1 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 

2 1029. 29. 29. 9. 20. 0. 0. 13. 18. 0. 0. 

3 0. 0. 29. 0. 0. 0. 0. 13. 16. 16. 18. 

4 29. 62. 91. 16. 18. 0. 0. 16. 18. 0. 0. 

5 616. 25. 54. 9. 13. 0. 0. 11. 11. 0. 0. 1 

6 250. 18. 72. 9. 13. 0. 0. 9. 13. 0. 0. 

7 126. 5. 78. 10. 11. 0. 0. 10. 13. 0. 0. 

8 469. 13. 91. 9. 12. 0. 0. 9. 14. 0. 0. 

9 0. 0. 91. 4. 16. 16. 21. 4. 21. 0. 0. 

10 46. 58. 149. 0. 29. 0. 0. 0. 29. 0. 0. 

11 295. 58. 206. 0. 29. 0. 0. 0. 27. 0. 0. 

12 40. 0. 0. 9. 20. 10. 11. 0. 0. 0. 0. 

13 14. 0. 0. 9. 13. 0. 0. 0. 0. 0. 0. 

TOTAL BARE ENGINE WEIGHT= 2915. ACCE$$ORISS= 262.02 
ESTIMATED TOTAL LENGTH* 206. ESTIMATED MAXIMUM RADIUS* 29. 
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ODDDDOOODDDDODDDODDDDDDDDDDDDDDDDDDDNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 


cccccccccc 

C CCCCCCCODDDDDDDODDDDDDDODDDDDDDDDDDDODDDDDDDDDD 
C DDDODDDDDDODDDDDDDDDDDDDDODDOQDDDDDDDTTT 
C CCCCCCCCCCCCCCCCCCCCCCCCCCPPPPPPPPPPPTTTTTTTTTT T 
CCCCCCC CCCCCCCCCCCCCCCC PPPPPPPPPPTTTTTTTTTTTTT 


C/L C/L C/L C/L C/l C/L C/DODDDDDOODDDODDDDDDDDDDDDDDDDDDODDDDD-C/L C/L C/L C/L 


£ 

O 


UPDATED INPUT DATA TO REFLECT CALCULATED INPUT 
COMPONENT 


NO. 

TYPE 

DATINP1 

DATINP2 

DATINP3 

DATINP4 

1 

INLET 

0. 238500 

03 

0.0 

0.146960 

02 

0.0 


2 

rOMPRESfi 

0.180000 

01 

0.0 

0.40000D 

04 

0.37610D 

04 

3 

SPUTTER 

0.77000D 

00 

0.0 

0.0 


0.0 


4 

DUCT B 

0.0 


0.0 

0.0 


0.0 


5 

COMPRESR 

0.13000D 

01 

0.26000D-01 

0.514550 

04 

0.37070D 

04 

6 

DUCT B 

0.10000D 

00 

0.0 

0.0 


0.26500D 

04 

7 

TURBINE 

0. 40000 D 

01 

0.10000D 01 

0.46733D 

00 

0.300100 

04 

8 

TURBINE 

0.25000D 

01 

0.0 

0.38577D 

00 

0.36030D 

04 

9 

MIXER 

0.70773D 

03 

0.63925D 03 

0. 24000D 

00 

0.0 


10 

DUCT 0 

0.600000*01 

0.0 

0.0 


0.0 


11 

NOZZLE 

0*472880 

03 

0.10000D 01 

0.0 


0.0 


12 

SHAFT 

0.40000D 

04 

0.10000D 01 

0.10000D 

01 

0.100000 

01 

13 

SHAFT 

0.60000D 

04 

0.10000D 01 

0. 10000D 

01 

0.10000D 

01 


CASE IDENTIFICATION SIMPLE MODEL 


DATINP5 DATINP6 DATINP7 DAT INP8 DATINP9 


0.0 


0.90000D 

00 

0.0 


0.0 - 


0.0 


0.265900 

03 

0 .376200 

04 

0.10U3D 

01 

0.376300 

04 

0, 99 2 2 ZD 

00 

0.0 


0.0 


0.0 


0.0 


0,0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.61418D 

02 

0.37080D 

04 

0.9Q909D 

00 

0.37090D 

04 

0 . I3246D 

01 

0.940000 

00 

0.18300D 

05 

0.0 


0.0 


0.0 


0.70645D 

00 

0.38020D 

04 

0.96727D 

00 

0.90244D 

00 

0. 100000 

01 

0.72633D 

00 

0.380400 

04 

0.940120 

00 

0.815580 

ob 

0.10000D 

01 

0.0 


0.0 


0.0 


0.0 


0. 0 


0.90000D 

00 

0.183000 

05 

0.0 


0.0 


0.0 


0 .980000 

00 

0.10000D 

01 

0.0 


0.0 


0. 10000D 

01 

0.100000 

01 

0.10000D 

01 

0.100000 

01 

0.10000D 

01 

0.100000 

01 

0.10000D 

01 

0.100000 

01 

0.100000 

01 

0.100000 

01 

0. IOOOOD 

01 



STATION property output data 




FLOW 

WEIGHT 


TOTAL 


TOTAL 


FUEL/AIR 

referred 

MACH 


STA T IC 

INTERFACE CORRECTED 

STATION 

FLOW 


PRESSURE 


TEMPERATURE 

RATIC 

FLOW 


number 


pressure 


FLOW ERROR 


STATP1 


STATP2 


STATP3 


STATP4 

STATP5 


STATP6 


STATP7 


STATP8 

1 

0.23850D 

03 

0.1^6960 

02 

0.51867D 

03 

0.0 

0.23850D 

03 

0.0 


0.0 


0.0 

2 

0.23850D 

03 

0.132260 

02 

0.51867D 

03 

0.0 

0.26499D 

03 

0.0 


0.0 


0.0 

4 

0.238500 

03 

0.378280 

02 

0.72687D 

03 

0.0 

0.109690 

03 

0.0 


0.0 


0.0 

G 

0.13475D 

03 

0.378280 

02 

0. 72687D 

03 

0.0 

0 .619700 

02 

0.0 


0.0 


0.0 

6 

0.13124D 

03 

0 .355810 

03 

0. 14356D 

04 

0.0 

0.901830 

01 

0.0 


0.0 


0.0 

7 

0.350340 

01 

0.355810 

03 

0.14356D 

04 

0.0 

0.0 


0.0 


0.0 


0.0 

8 

0.13405D 

03 

0.320220 

03 

0.26500D 

04 

0.214250-01 

0.13906D 

02 

0.0 


0.0 


0.0 

9 

0.13756D 

03 

0.86376D 

02 

0.20278D 

04 

0.20868D-01 

0.462760 

02 

0.0 


0.0 


0.0 

10 

0.137560 

03 

0.388490 

02 

0.1721 6D 

04 

0.20868D-0L 

0.948010 

02 

0.24000D 

00 

0.374010 

02 

0.0 

11 

0.10375D 

03 

0.378280 

02 

0.72687D 

03 

0.0 

0 . 477 170 

02 

0.0 


0.0 


0.0 

12 

0.241310 

03 

0.374010 

02 

0.13157D 

04 

0.117900-01 

0.15101D 

03 

0.0 


0.0 


0.0 

13 

0.2^1310 

03 

0.351570 

02 

0.13157D 

04 

0.1 1790D-01 

0.160650 

03 

0.10000D 

01 

0.187800 

02 

0.0 

1^ 

0.241310 

03 

0.35157D 

02 

0.13157D 

04 

0. 11790 D-01 

0.160650 

03 

0.11729D 

01 

0. 146960 

02 

0.0 

IS 

0.10375D 

03 

0.378280 

02 

0.72687D 

03 

0.0 

0.4T717D 

02 

0.127340 

00 

0.374010 

02 

0.0 


COMPONENT OUTPUT DATA 


COMPONENT 


NO. TYPE 

OATOUTl 


DAT0UT2 

DAT OUT 3 

OATOUT4 

CAT0UT5 

OATOUT6 

0AT0UT7 

D4T0UT8 

DAT0UT9 

1 

INLET 

0.0 


0.0 


0.0 


0. 100Q0D 

01 

0.100000 

01 

0.0 


0.900000 

00 

0. 100000 

01 

0.0 


2 

COMPRES R 

-0 . 1691 2D 

05 

0.40000D 

04 

0.0 


0. 18000D 

01 

0.400000 

04 

0.100000 

01 

0.265900 

03 

0.870000 

00 

0.286000 

01 

3 

SPLITTER 

0.77000D 

00 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


u 

DUCT 8 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


c 

COMPRESR 

-0.339690 

05 

0.600000 

04 

0.0 


0.13000D 

01 

0.514550' 

04 

0.985000 

00 

0.614180 

02 

0. 870 OOD 

00 

0.94060D 

01 

6 

DUCT B 

0.0 


0.10000D 

00 

0.0 


0.214250- 

•01 

0.0 


0.10123D 

05 

0.0 


0.94000D 

00 

0.265000 

04 

7 

TURBINE 

0.339690 

05 

0.600000 

04 

0. 100000 

01 

0.400000 

01 

0.467330 

00 

0.568000 

04 

0. 70645D 

00 

0.860000 

00 

0.370730 

01 

8 

TURBINE 

0.169120 

05 

0.400000 

04 

0. 10000D 

OL 

0.25000D 

01 

0.38577D 

00 

0.524400 

04 

0.726330 

00 

0.860000 

00 

0.222340 

01 

9 

MIXER 

0.707730 

03 

0 .639 25 D 

03 

0.10387D 

01 

0. 10114D 

01 

0.472740 

03 

0.16773D 

03 

0.0 


0.S4990D- 

■16 

0.10000D 

01 

10 

DUCT B 

0.0 


0.600000- 

•01 

0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


11 

NOZZLE 

0 .13785C 

05 

0. 18379D 

04 

0.23923D 

01 

0.48393D 

03 

0.472880 

03 

0.10000D 

01 

0.980000 

00 

0.187210 

01 

0.23923D 

01 

12 

SHAFT 

0.0 


0.40000D 

04 

0.40000D 

04 

0.400000 

04 

0.0 


0.0 


0.0 


0.0 


0.0 



13 SHAFT 0.0 


0.60000D 04 0.60000D 04 


0 .600000 04 


0.0 


0.0 


0.0 


0.0 


0.0 


MACH= 0.0 ALTITUOE= 0. RECOVERY= 0.9000 Q ITERATIONS 2 PASSES 


AIRFLOW <L 8/SECJ 

238.50 

GROSS THRUST 

13785.01 

FUEL FLOW ( LB/ HR 1 

NET THRUST 

13785.01 

TSFC 

0.7343 

NET THRUST/AIRFLOW 

TOTAL INLET DRAG 

0.0 

TOTAL BRAKE SHAFT HP 

0.0 

BOATTAIL DRAG 

INSTALLED THRUST 

13785.01 

INSTALLED TSFC 

0.7343 

SPILLAGE + LIP DRAG 


10122.81 

57.79B8 

0.0 

0.0 



APPENDIX B — Source Listing 

By programming standards each routine starts with an extensive set of COMMENT cards which 
describe the subroutine purpose, use, required subroutines, history, and glossary of variable names 
and descriptions The listing of NNEP has been skipped to save space. The changes to NNEP 
necessary to append the weight estimating routines are. 

1 . Add calls to WTEST m MAIN and NEPCAL 

2 Incorporate common WMECH in routine INPUT 

3 Incorporate variables IWT and IPLT in namelist statement D in routine INPUT 


SUBROUTINE Page 

t 

COMP — Initialize Compressor Conditions B-2 

CMECH — Compressor Mechanical Design B-12 

CWT — Compressor Weight Calculations B-21 

COMBWT - Combustor Weight Calculations B-24 

DUCTWT - Duct Weight Calculations B-29 

DUCT — Inlet Area Calculation B-33 

DUCT1 — Stage Mach Number of Area Calculation B-36 

EFFD — Component Polytropic Calculation B-38 

FRAME - Frame Weight Calculations B-40 

STESSS - Blade Pull Stress Calculations B-42 

SHAFT - Shaft Weight Calculations B-44 

TURB — Initialize Turbine Conditions B-48 

TMECH - Turbine Mechanical Design B-54 

TURWT - Turbine Weight Calculations B-62 

WMIXR— Mixer Weight Calculation B-65 

WSPLT— Splitter Radii Calculation B-68 

WTNOZ— Nozzle Weight Calculation B-70 

STHERM-Thermodynamic Tables B-74 

WTEST -Mam Driver Routine B-75 

NPPNT—Plotter Routine B-82 

DTRAP— Trapezoid Plotting Routine B-84 

ENGPLT— Engine Plotting Routine B-86 

DUMMY— Dimension Transfer Routine B-90 

HMEC-Heat Exchanger Weight Calculation B-92 

VALVWT— Air Inverter Valve Weight Calculation B-97 
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C 

C SUBROUTINE(COMP) 

c 

c 

C PURPOSE 

C THIS ROUTINE INITIALIZES THE INLET AND EXIT 
C CONDITIONS FOR ALL TYPES OF COMPRESSORS AND 
C CALLS THE MECHANICAL DESIGN ROUTINE. 

C 

C CALLING ROUTINES 

C 

C 

C 

C REQUIRED SUBROUTINES 
c 

C CMECh DOES THE MECHANICAL DESIGN 
C DUCT CALCULATES AREA BASED ON MACH 

C DUCT1 CALCULATES AREA BASED ON MACH OR 

C MACH BASED ON AREA 

C EFFD CALCULATES POLYTROPIC EFFICIENCY FRCM 

C ADIABATIC EFFICIENCY 

C 

C MODIFICATION HISTORY 

c 

C 

C DATE ID ANALYST DISCRETION 

C 

C 

C 

C AUTHOR /LANGUAGE/DATE 
c 

C E. ONAT , R. J. PERA/FOPTRAN IV/ 09 30 76 

C 

C 

C GLOSSARY 


C 

C 

C 


C 

NAME 

ORIGIN 

USAGE 

DISCRETION 

L 

c 

ICOMP 

ARG 

L 

COMPONENT NUMBER 

C 

IP 


0 

PRINT INDICATOR 

C 

NCC 



COMPONENT NUMBER 

c 

NC 



COMPONENT TYPE 

c 




1= FAN 

c 




3= CCMPPESSCR 

c 

NCDEI 



INLET NODE 

c 

NGCEC 



OUTLET NODE 

c 

WI 



AIRFLOW IN 

c 

PI 



PRESSURE IN 

c 

T I 



TEMPERATURE IN 

c 

PP 



PRESSURE RATIO 

c 

EF 



ADA I B AT I C EFFICIENCY 

c 

PEF 

* 


POLYTROPIC EFFICIENCY 
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C IDES 

C 

C 

C A I 
C ITYPE 
C 
C 
C 

c cw 

C PRC 
C TID 
C HI 
C RP1 
C FP3 
C T3 
C H3 
C DHI 
C DHA 
C H2 
C TC 
C POI 
C XM 
C AO 
C 

C FCR NON-ROTATING SPLITTERS 

C IFAN 
C 

C NF AN 
C 

C NCDEIC 
C NODEII 
C WAI 
C WAG 
C PRC 
C EFO 
C PPI 
C EFI 
C NCCEOC 
C NOCEOI 
C TOC 
C TCI 
C WCC 
C WOI 
C RPMT 
C 

C FCR ROTATING SPLITTERS 

C 

C NFANI 
C NFANO 
C PII 
C Til 
C WII 
C PIO 
C TIO 
C WIO 
C FA I 


INPUT INDICATOR 
I=DATA FROM DESVAL 
2- DAT A FROM DEFAUL 
MACH IN 

LOCATION INDICATOR FOR DEFAUL 
1 THRU 5 =FAN 

6 * L PC 

7 = HPC 

CORRECTED AIRFLOW 
PRESSURE PATIC 
DESIGN TEMPERATURE 
ENTHALPY IN 
REL PRESSURE IN 
REL PRESSURE OUT 
IDEAL TEMPERATURE OUT 
IDEAL ENTHALPY OUT 
IDEAL DELTA ENTHALPY 
DELTA ENTHALPY 
ENTHALPY OUT 
TEMPERATURE OUT 
PRESSURE OUT 
MACH IN 
AREA GUT 


INDICATES FAN <INNER 
OR FAN OUTER 
INDICATES FAN CUTER 
OR FAN INNER 
NODE IN ON OUTER 
NODE IN ON INNER 
AIRFLOW IN ON INNER 
AIRFLOW IN ON CUTER 
PRESSURE RATIO OF OUTER 
EFFICIENCY OF OUTER 
PRESSURE RATIC OF INNER 
EFFICIENCY OF INNER 
NODE OUT CN OUTER 
NODE OUT ON INNER 
TEMPERATURE GUT ON OUTER 
TEMPERATURE OUT ON INNER 
AIRFLOW CUT ON OUTER 
AIRFLOW GUT ON INNER 
RPM OF COMPONENT 


INNER COMPONENT NUMBER 
OUTER COMPONENT NUMBER 
PRESSURE IN ON INNER 
TEMPERATURE IN ON INNER 
AIRFLOW IN ON INNER 
PRESSURE IN ON CUTER 
TEMPERATURE IN ON OUTER 
AIRFLOW IN ON CUTcR 
F/A RATIO OF INNER 
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ooooo o o o o o no 


C 

FAO 

F/A RATIO OF OUTER 

C 

X MI I 

MACH IN ON INNER 

C 

XM 10 

MACH IN ON CUTER 

C 

GAI 

GAMMA INNER 

c 

GAO 

GAMMA OUTER 

C 

ATI 

TOTAL INLET AREA 

c 

ARI 

AREA RATIO IN - A OUTER/A 

C 

PCI 

PRESSURE OUT ON INNER 

C 

TO I 

TEMPERATURE OUT ON INNER 

c 

WO I 

AIRFLOW OUT ON INNER 

c 

FOI 

F/A RATIO OUT ON INNER 

C 

PCC 

PRESSURE OUT ON OUTER 

c 

TOO 

TEMPERATURE OUT ON OUTER 

c 

WOC 

AIRFLOW OUT ON OUTER 

c 

FOO 

F/A RATIO CUT ON OUTER 

c 

XMOI 

MACH OUT ON INNER 

c 

XMOO 

MACH OUT ON OUTER 

c 

GO I 

GAMMA OUT ON INNER 

c 

GCO 

GAMMA OUT ON OUTER 

c 

ATO 

TOTAL AREA OUT 

c 

ARG 

AREA RATIO OUT -A OUTER/A 

c 

NFO 

OUTER FAN NUMBER 


C 

C 


TOTAL 


TOTAL 


C************V************************************J ********************** 


SUBROUTINE COMP ( ICOMP) 

REAL *8DATINP,DAT0UT,WTF,T0PRES,T0TEMP,FAR,C0RFLG,VMACH,STATP,ERR0 
1R,T0L,T0LT,T0LTT,DEPV,DT0L,PERPF 

***************** 

* COMMON BLOCKS * 

***************** 

COMMON /DBL/ DA TINP ( 15 ,60 ) ,DA T0UT( 9 ,60 ) ,WTF(40) ,TOPRES(40 I ,T0TEMP( 
140 ) ,FAR(40),C0RFL0(40 ),VMACH(40) , STAT P ( 40 ), ERROR (40 ) , TOL , TOLT , TOLT 
2T,DEPV( 20) ,DTOL ( 20) ,PERPF(20) 

COMMON /SNGL/ JM1 , J M2 , JP1 , JP 2 , JCX, LOG TB L( 9 ,60) ,JC0MP(70) , I WAY, NIT, 
II T ABC 70) ,JCGNF(60,4)» JTYPE(60 )»JFLOW(70), I DEDAP ( 15),KKINDS(14,25) , 
2NC0MP , NO STAT , NITER, NF INIS, NPASS , JCC »NTBL »NCTS , JC IND ( 20) ,JCDEP(20) , 
3JCVINDC20) ,JCVDEP(20) ,KDTYP< 20) , ID0NEC60) 

COMMON / WMECH/ IWMEC( 7,60) ,WATE (60) , ALENG (60 ) , TLENG (40 ) , R 1(2 ,40 ) , R 
10 ( 2,40),DESVAL(15,60) ,DSHAF( 5),RPMT(60) , I WT, I PLT, IEPR ,ISII,ISIO,IO 
2UTCD,NSTAG(60) 

COMMON /CONVEP/ C0NVEP(15) 

COMMON /DEFAUL/ DEF AUL( 15 , 20 ) 

LOGICAL I WT ,IPLT,IERR,I SII ,1 SIO 

** ***************** 

* DATA STATEMENTS * 

******************* 

DATA TSTD,PSTD, FA/ 518. 67, 2116.22,0./ 

DATA LLPC,LHPC,LFAN,LFO,LFI,LRSFO, LRS FI /4HLPC ,4HHPC , 4HFAN ,4HF0 
1 , 4HF I ,4HR SFO ,4HR SF 1/ 



IF { IOUTCD.GT • 1) WRITE (10,330) I WMEC(1 tICOMP) , ICOMP, IOUTCD 

IP=IQUTCD 

ISP=0 

NCC=IC0MP 

ITYPE=1 

NC=3 

IF (IWMEC(1,NCC).EQ.LFAN) NC=1 
IF (I WMEC(1,NCC) .EQ.LFO) NC=1 
IF (IWMEC(1, NCC ) • EQ «L FI ) NC=1 
IF ( I WMEC (1 ,NCCI • EQ.LRSFO) NC=4 
IF (IWMEC(lfNCC).EQ.LRSFX) NC=4 
IF ( IWMEC(5,NCC) .LE.-l) RETURN 
IF (NC.EQ.4) GO TO 170 

IF (NC.EQ.l.AND.IWMEC(5,NCC).NE.O) GO TO 40 
NQDEI=JCONF( NCC , 1 ) 

NO DEO=JCONF ( NCC, 3 ) 

WI =WT F ( NODEI ) 

PI I=TOPRES(NODEI ) 

P I = P 1 1*144 . 

TI=TOTEMP( NODEI ) 

PR^DATOUT (9, NCC ) 

EF=DATCUT (8, NCC) 

IDES= 1 

IF (DESVAL(1,NCC) .EQ.O. ) IDES=2 
GO TO (10,20) ,IDES 
10 AI=DESVAL(1, NCC ) 

GO TO 30 
20 ITYPE=1 

IF ( IWMEC(1,NCC).EQ .LLPC ) ITYPE=6 
IF ( I WMEC ( 1 , NCC) • EQ.LHPC) ITYPE=7 
AI=DEFAUL( 1, ITYPE ) 

C 

C CALCULATE CORRECTED COMPONENT INLET FLOW (CW) 

C 

30 CW=WI*SQRT (TI/TSTD)/PI*PSTD 

C 

C CHECK FOR BAD INLET TOTAL TEMPERATURE (TI) 

C 

IF (TI.LT.200.) TI=200. 

IF (TI.GT. 6000.1 TI=6000 • 

C 

C INITIALIZE DESIGN CASE VALUES 
C 

PRD=PR 
TI D=T I 
PEF=EF 
C 

C CALCULATE ADIABATIC (EF) CR PGLYTROPIC (PEF) COMPONENT DESIGN 
C EFFICIENCY 
C 

CALL EFFD (TI D ,PRD , PEF,EF, FA) 

C 

C CALCULATE INLET ENTHALPY (HD, IDEAL EXIT ENTHALPY (H3) , IDEAL DELTA 
C ENTHALPY (DHI ) , ACTUAL DELTA ENTHALPY (DHA), ACTUAL EXIT ENTHALPY 
C { H2 ) AND EXIT TOTAL TEMPERATURE (TO) 

C 
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H1-STHERM(4,TI,FA) 

RP 1=STH£RM { 2 » T3 » FA ) 

RP3=RP1*PR 

T3=STHERM(3,RP3,FA) 

H3=STHERM(4, T3, FA ) 

DHI=H3-H1 

DHA=DHI/EF 

F2=DHA+H1 

TO=STHERM( 1,H2,FA) 

C 

C CALCULATE INLET DUCT AREA (All 
C 

CALL DUCT (TI,PI,WI ,AI,FA,XM,PS,Q,ISIO,IP) 

C 

C CALCULATE DUCT EXIT TOTAL PRESSURE (POll » COMPONENT EXIT FLOW 
C (WO) AND COMPONENT WORK (WHP) 

C 

PG1=PI*PF 
WO=WT F ( NCDEO ) 

WHP=DHA*WI/. 7.068 
C 

C CALCULATE COMPONENT MECHANICAL DESIGN AND DIMENSIONS 
C 

P0=POl 

XMS=XM 

PEFS=PEF 

CALL CMECH ( I P , I DES , NCC , NC , PR , RP1 , T I ,TO ,DHA, DH I , HI, FA, A I , XMO , 0. , 0 . 
1,PI, P01,WI ,WO,XMS,XME,PEFS,ITYPE,NODEI ,NODEO) 

C 

C CALCULATE COMPONENT EXIT AREA (AO) 

C 

AO=XME 

WT1=WATE( NCC ) 

CALL DUCT (T0,P01,WI, AO , FA , XME , PS1 ,QFEX , I SIO, I P ) 

C 

C WRITE COMPONENT DATA 
C 

IF (IP.NE.2) RETURN 
GO TO 270 
C 

C CALCULATION FOR NON-ROTATING SPLITTER 

C 

C INITIALIZE DESIGN VALUES 
40 IF AN= 1 

ITYPE=2 

IF (IWMEC(1,NCC).EQ.LFI) IFAN=2 
NFAN=IWMEC(5,NCC) 

I WMEC ( 5 tNFAN) =-NCC 

IF (IFAN.EG.l) NODE IO=JCONF ( NCC , 1 ) 

IF (IFAN.EQ. 1) NODEII=JCONF(NFAN» 1 ) 

IF ( IFAN.EQ. 2) NODE IO=JC ONF ( NFAN , 1 ) 

IF (IFAN.EQ. 2) NODE I I=JCQNF( NCC , 1 ) 

PII=TOPRES(NGDEIC) 

P I=P I 1*144. 

TI^TOTEMP(NODEIO) 

WAI=WTF(NODEII) 
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WAO=WTF ( NGDEI 0) 

W I=WAI+WA0 
C 

C CALCULATE MASS WEIGHTED PR AND EF FOR STAGE CALC 
C 

GO TO (50,60) , I FAN 
50 PRO=D ATGUT ( 9 , NCC ) 

EFO=DATOUT (8 ,NCC) 

PR I =D A TOUT ( S, NFAN) 

EF I=DATQUT ( 8, NFANI 
GO TO 70 

60 PR0=DAT0UT ( 9, NFAN) 

EFO=DATOUT ( 8 , NFAN) 

PRI=DAT0UT(9,NCC) 

EF I=DATCUT(8,NCC) 

70 PR=(PRI*WAI+PRO*WAO)/WI 

EF=(EFI*WAI+EFO*WAO)/WI 
T I D=T I 
PRD=P I 
PEF=EF 

CALL EFFD (T ID, PRD, PEF, EF, FA ) 

GO TO ( 80,90) , I FAN 
80 N0DE0G=JCGNF(NCC,3) 

NODEOI=JCONF( NFAN, 3 ) 

GO TO 100 

90 NQDEOG= JCONF ( NFAN, 3 ) 

NODEOI=JCONF( NCC , 3 ) 

100 TOO=T OTEMP (NODEOO) 

TOI=TGTEMP( NODEOI ) 

T0=( TOC*WAO+TOI*WAI )/WI 
WOC=WTF(NCDEOO) 

WO I=WTF ( NODEOI ) 

WO=WGO+WOI 
IDES= 1 

I E ( OESVAL ( 1 , NCC ) . EQ. 0. ) IDES=2 
GO TC (110, 120), IDES 
110 *-I=OE$VAL(l,NCC) 

GO TC 130 

120 AI =CE FAUL( 1,2) 

C 

C CALCULATE INLET DUCT AREA (AI) 

C 

130 CALL DUCT (TI , PI , WI , A I , FA , XM, PS, Q, I SI 0, IP ) 

C 

C CALCULATE INLET ENTHALPY AND WORK 
C 

H1=STHERM (4, T I ,FA) 

RP 1=STHERM ( 2 , TI , FA ) 

RP3=RP1*PR 

T3=STHERM(3,RP3,FA) 

H3=ST HERM(4,T3,FA) 

DHI=H3-H1 

DHA=CHI/EF 

H2=H1+DHA 

P01=PI*PR 
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C CALCULATE COMPRESSOR MECHANICAL DESIGN 
C 

XM S=XM 
PEFS= PEF 

CALL CMECF < I P , I DES , NCC , NC , PR , RP1 , TI ,TO,DHA,DHI , HI, FA, A.I,-XMG,0. ,0i 
1, PltPOl* WI , WO ,XMS ,.XME ,PEFS ,1 TYPE, NODE 1 0 , NODE DO) 

AO=XME 

C 

C CALCULATE EXIT DUCT AREA (AO) 

C 

CALL DUCT (TQ,P01»W0»AQ»FA,XME»PSI,QFEX,ISIG,IP) 

C 

C STORE WEIGHT AND DIMENSIONS FOR FAN 
C 

RPMT(NFAN)=RPMT(NCC ) 

GO TO ( 140,150) ,IFAN 
140 WATE( NFAN )=WATE( NCC )#WA I/WI 

WATE ( NCC) = WATE ( NCC ) -WATE ( NFAN ) 

AL ENG ( NFAN )=ALENG( NCC) 

RI (l,NODEII)=RI(l, NODEIO ) 

P I ( 2 , NODE 01 ) =RI ( 2 , NCDEOO) 

GO TO 160 

150 WATE(NFAN) =WATE( NCC)*WAO/WI 
WT1=WATE(NCC ) 

WATE < NCC )=WATE { NCC) -WATEI NFAN) 

AL ENG ( NFAN )=ALENG ( NCC ) 

ROtl, NODEIO )=R0( 1, NOD El I) 

RO(2,NODEOC)=RO(2,NODEOI) 

160 RM = SQRT( (R0< 2,NODEIO)**2+RI(1 ,NODEII )**2*WA0/WAI)/(1.+WA0/WAI) ) 
RI(1,N0DEIG)=RM 
RO ( 1 , NOD El I ) =RM 

RM=SQRT((RO(2»NODEOO)**2+RI( 2,N0DE0I )**2*WA0/WAI) /(l.+WAO/WAI) ) 

R0(2,N0DECI)=RM 

RI (2, NODEOO)=RM 

IF (IP.NE.2) RETURN 

CW=CORFLO(NODEII)+CORFLO(NQDEIO) 

CW=CW/1 .54972555 
WHP=DHA*WI/.7068 
P0=P01 
GO TO 270 
C 

C CALCULATION FOR ROTATING SPLITTER 

C INITIALIZE DESIGN VALUES AND DETERMINE INNER AND OUTER FANS 
C 

170 I TYPE=4 
IFAN=2 

IF (IWMEC(ltNCC).EQ.LPSFO) IFAN=1 
GO TO ( 180,190) ,IFAN 
180 NODEIO=JCONF(NCC,1) 

NODEOO=JCONF ( NCC ,3 ) 

NFANI=I WMEC ( 5 ,NCC ) 

NFANO=NCC 

NODEII=JCONF(NFANI ,1) 

NO CEO I=JCONF (NFAN I, 3) 

IWMEC(5,NFANI) =— NCC 
GO TO 200 


B-8 



190 NO DEI I=JC0NF( NCC , 1 J 

NO DEO I=JCONF ( NCC, 3 ) 

NFANO = I WMEC ( 5 » NCC) 

NFANI=NCC 

NODEI C= JCONF ( NFANO, 1 ) 

NODEOO=JCONF( NFANO ,3) 

I WMEC (5 , NFANO 1=—NCC 
200 PI I=T0PRES(N0DEII)*144. 

TII=T0TEMP(N0DEIIJ 
WI I=WTF ( NODE II) 

PI 0=T0PRES (NODEI 0)* 144. 

TIC=TOTEHP(NODEIO) 

WIO=WTF(NODEIG) 

FI I=FAR(NODEI I } 

FI OF AR ( NODEI 01 
IDES=1 

IF (DESVAL(l,NCCI.EQ.O.) IDES=2 
C 

C CALCULATE MACH IN AND MACH OUT FOR MECHANICAL DESIGN 

C AND CALCULATE OUTER TC TOTAL AREA RATIO FOR SPLITTER LOCATION 

C 

GO TO (210,220), IDES 
210 XMII=DESVAL( 1,NFANI ) 

XMIO=DESVAL( 1, NFANO) 

GO TO 230 

220 XMII=DEFAUL( 1,5) 

XMIG=DEFAUL( 1,4) 

230 GII=STHERM(5,TII»FI II 
GI0=STHERM(5,TI0,FI0) 

AII=0. 

A 1 0=0 • 

CALL DUCT1 (TII,PII»WII»GII, XMI I , A 1 1 ) 

CALL DUCT1 (TIO»PIG,WIC,GIO»XMIO,AIG) 

W I=W I I+W 10 
ATOAIO+AII 

tat=-ati 

CALL CUCT1 (TIO,PIO,WI,GIO,XMI,TAT) 

AR I=A I 0/ATI 

P0I=T OPRES(NODEOI)* 144. 

TOOT CTEMPtNODEOI ) 

W0I=WTF ( NODEO I ) 

FO I=FAR ( NODEO I ) 

F0C=T OP RES ( NODEOOl * 144. 

T00=T0TEMP(N0DE00) 

WOO=WTF(NODEOG) 

FGG=F AR( NODE 00) 

GO TO (240,250) , IDES 
240 XMOI=DESVAL ( 7 , NFANI 1 
XM00=DESVAL( 7, NFANO) 

GO TO 260 

250 XMOI =DEF AUL (7,5) 

XM00=DEFAUL( 7,4) 

260 GOI=S THERM (5,TQI,F0I) 

GOO=STHERM( 5 , TOO, FOO) 

AO 1=0. 

A00=0. 
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CALL DUCT1 (TOI*POI»WOI,GOI,XMGI,AOI) 

CALL DUCT1 ( TOG » POO » WOO » G00» XMOO» AGO) 

AT C=ACI +AOO 

TAG=-ATG 

WO=WOO+WOI 

CALL 0UCT1 <TGO,POO,WC,GOCtXMG,TAO) 

ARC=AOO/ATO. 

EF=DAT0UT<8, NFANO) 

PR=OATGUT( 9t NFANO) 

A I=AT I 
AO=AT 0 
PRD=P R 
TID=T 10 
PEF^EF 

CALL EFFD (TI D ,PRD » PEF, EF , FIO ) 

H1=STHERM(4,TI0,FI0 ) 

RP1=STHERM(2,TIC,FIC) 

RP3=PP1*PR 

T3=STHERM(3,RP3,FI0) 

H3“STHERM(4»T3»FI0) 

DHI=H3-H1 
DHA=DHI/EF 
WHP=DHA*WI/. 7068 
H2=H1+DHA 

TO=STHERM( 1,H2,FI0> 

TR=TO/TIO 

W1=WI 

PO 1= PIO#PR 

CALCULATE COMPRESSOR MECHANICAL DESIGN 

XMS^XMI 

TI=TIO 

PI=PIO 

PEFS=PEF 

NFO=NFANO 

CALL CMECH { I P , I DES ,NFO, NC , PP ♦ RP1 , TI , TO , DhA, DHI , H i, FA , A I , XMO , ARO , A 
1RI»PI»P01*WI »WOtXMS»XMEiPEFS»I TYPE » NODE 10 » NODEOO) 

STORE FAN DIMENSIONS AND WEIGHT 

WTI=WATE ( NFANO) 

RPMT( NFANI ) =RPMT( NF ANG) 

WATE< NFAN I )=WATE ( NFANO )*W I 1/ WI 
WATE( NFA NO )= W ATE ( NFANO J -MATE (NFANI) 

AL ENG( NFAN I )=ALENG( NFANO) 

RI (1,N0DEII)=RI <1,NGDEI0) 

RI(2»N0DE0I)=RI(2» NODEOO) 

RM=SQRT(RO(1,NODEIG)**2-ARI*<RO(2,NODEIO)**2-RI ( ItNODEII )**2) ) 

RI ( I j NGDEI 0) =RM 
RG { 1 * NOD E I I ) = RM 

RM=S QRT ( RO (2 t NODEOO )**2— ARQ#( RO ( 2 » NODEOO ) **2— R I(2tN0DE0I) **2 ) ) 

RI ( 2 1 NODEOO ) =RM 

R0(2,NCDEGI)=RM 

PO=POI 

CW=0. 
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IF (IP.NE.2) GO TO 290 
WRITE (10,340) 

IF ( ISIO) GO TO 280 
WRITE (10,350) PR,EF,PG,TO,WHP 
WRITE (10,360) 

WRITE (10,370) HI, H2, WI ,CW 
GO TO 250 
280 SPO=PO*CONVER( 11) 

STC=TG*CCNVEP(8) 

SWHP=toHP*CGNVER ( 10) 

SH1= H1*C0NV ER ( 9 ) 

$H2=H2*CCNVER(5) 

SW I=W I*C0NVER(3) 

SCW=CW*CCNVER(3) 

WRITE (10,350) PR,EF,SPO,STO, S WHP 
WRITE (10,360) 

WRITE (10,370) SHI, SH2,SWI ,SCW 
290 IF ( IWMEC(6,NCC) .EQ.O) GO TO 320 
IGR=IWMEC(fc,NCC) 

DO 300 1=1,4 
IL 0C= I 

IF (NCC.EQ.JCGNFI IGR, I) ) GO TO 310 
300 CONTINUE 
310 I LCC= ILOC+l 

GR=DATINP( ILOC » IGR) 

RPM=RPMT ( NCC ) 

GBWT=WHP/RPM*( 1 .+GR )**3/GR*9 . 43 
RPMT ( NCC )=RPM/GR 

IF (NC.EC.l) RPMT ( NFANI=RPMT ( NCC ) 

IF (NC.EQ.4) RPMT(NFANI) =RPMT (NCC) 

IF (NC.EQ.4) RPMT (NFANO)=RPMT (NCC) 

WATt ( NCC ) =WATE ( NCC ) -t-GBWT 
IF (ISIC) G6WTS=GBWT*CONVER(3) 

IF ( I0UTCD.GT.1) WRITE (10,380) GBWT 

IF ( ISIO. AND. ICUTCD.GT.l) WRITE (10,380) GBWTS 

WT 1=WT1+GBWT 

320 IF (IP.NE.2) RETURN 

IF (ISIO) WT1=WT1*CCNVER(3) 

WRITE (10,390) WT1 
RETURN 
C 

330 FORMAT ( 1H /14H ****v******+*/14H * */4H * ,A4,I3,3H * 

1/14H * */13H ************, II) 

340 FORMAT OSH PR AD EF PO TO HP) 

350 FORMAT ( 2F8.4, 2F8. 1 , F8. 0) 

360 FORMAT (29H HI HO Vll CWI ) 

370 FORMAT (5F8.2,//) 

380 FORMAT </,17H GEAR BOX WE IGHT= , 3X, F6. 2) 

390 FORMAT {/,26H ***=M:************** TOTAL, 15H COMP WEIGHT IS,F10.3) 
END 
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C * $ # * # $ jfr Sj[ # Jfc $ $ $ a$C * * 3jc 4c 3jt * * # # * $ * £ # $ 3j[ jjt * # Jjc * Jjt * # £ Jjt * * $ * jfc jj< 3{e * # # # $ # ijt # J(£ * * *1 j£ * $ $ # # * # 

SUBROUTINE (CMECH) 

PURPOSE 

THIS ROUTINE CALC ULA'TES THE MECHANICAL DESIGN 
PARAMETERS OF THE COMPRESSORS AND FANS. El NUMBER 
OF STAGES t RPM, DIAMETER. 

CALLING ROUTINES 

COMPRESSOR 

REQUIRED SUBROUTINES 


MODIFICATION HISTORY 

DATE ID ANALYST DISCRIPTIQN 


AUTHOR /LANGUAGE/DATE 

E. ONAT , R. J. PERA/FORTRAN IV/ 09 30 76 


GLOSSARY 


NAME 

ORIGIN 

USAGE 

DISCRETION 

IP 

ARG 


PRINT INDICATOR 

IDES 

ARG 


INPUT INDICATOR 

NCC 

ARG 


COMPRESSOR INDICATOR 

NC 

ARG 


COMPRESSOR TYPE INDICATOR 

PR 

ARG 


PRESSURE RATIO 

PPI 

ARG 


PRESSURE IN 

TI 

ARG 


TOTAL TEMPERATURE IN 

TO 

ARG 


TOTAL TEMPERATURE OUT 

DFA 

ARG 


ACTUAL DELTA ENTHALPY 

DHI 

* ARG 


IDEAL DELTA ENTHALPY 

HI 

ARG 


ENTHALPY IN 

FA 

ARG 


FUEL AIR RATIO 

AI 

ARG 


AREA IN 

XMC 

ARG 


MACH NUMBER OUT FOR ROTATING 

ARC 

ARG 


AREA RATIO OUT 

ARI 

ARG 


AREA RATIO IN 

PI 

ARG 


PRESSURE IN 

POI 

ARG 


PRESURE OUT 
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c 

WT 

ARG 

AIRFLOW IN 

c 

wo 

APG 

AIRFLOW OUT 

c 

XMS 

ARG 

MACH NUMBER IN 

c 

XME 

ARG 

MACH NUMBER OUT 

c 

PEF 

ARG 

POLYTPOPI C EFFICIENCY 

c 

ITYPE 

ARG 

LOCATION INDICATOR FOR DEFAULT 

c 

NI 

ARG 

NODE IN 

c 

NO 

ARG 

NODE OUT 

c 

I ST AT P 


STATOR INDICATOR 

c 

PR M 


FIRST STAGE MAX. PRESSURE RATIO 

c 

HT 


HUB TIP RATIO IN 

c 

SCLC 


SOLIDITY 

c 

ARIC 


BLADE ASPECT RATIO IN 

c 

AROC 


BLADE ASPECT RATIO OUT 

c 

CCMN 


MACH NUMBER OUT 

c 

TMAXI 


MAX. TEMPERATURE IN 

c 

TMAXO 


MAX. TEMPERATURE OUT 

c 

RPMR 


SPEED RATIO NMAX/NDES 

c 

RHCM 


BLADE DENSITY 

c 

MODE 


1 CONSTANT HUB DESIGN COMPRESSOR 

c 



2 CONSTANT MEAN DESIGN COMPRESSOR 

c 



3 CONSTANT TIP DESIGN COMPRESSOR 

c 

see 


RPM SCALER FOR MATCHING A KNOWN SPEED 

c 

SN 


NUMBER STAGES 

c 

HZ 


FIRST STAGE EXIT ENTHALPY 

c 

PR1 


FIRST STAGE PRESSURE RATIO 

c 

T2 


FIRST STAGE EXIT TEMPERATURE 

c 

RP2 


FIRST STAGE EXIT RELATIVE PRESSURE 

c 

CUTP 


CORRECTED TIP SPEED 

c 

RT 


FIRST STAGE TIP RADIUS - FT 

c 

RPM 


RPM OF THE SPOOL 

c 

DT 


FIRST STAGE TIP DIAMETER -IN 

c 

UTP 


FIRST STAGE TIP SPEED 

c 

NS 


NUMBER OF STAGES 

c 

TP 


BLADE TAPER RATIO 

c 

CLP 


COMPRESSOR LOADING 

c 

PMEAN 


MEAN RADIUS 

c 

RT E 


BLADE TIP RADIUS 

c 

RHB 


BLADE HUB RADIUS 

c 

RT FR 


FRONT FRAME RADIUS 

c 

DELMNS 


DELTA MACH NUMBER 

c 

CELAP 


DELTA ASPECT RATIO 

c 

DFAS 


DELTA ENTHALPY STAGE 

c 

DELARI 


DELTA AREA RATIO 

c 

PCS 


PRESSURE INTO/QUTOF STAGE 

c 

EF 


POLYTROPIC EFFICIENCY 

c 

TTOS 


TEMPERATURE INTO/OUTOF STAGE 

c 

DELTM 


DELTA MAX. TEMPERATURE 

c 

HOS 


ENTHALPY INTO/OUTOF STAGE 

c 

XMCS 


MACH NUMBER INTO/OUTOF STAGE 

c 

AR 


ASPECT RATIO OF STAGE 

c 

AP II 


AREA RATIO OF STAGE 

c 

HIS 


ENTHALPY INTO STAGE 

c 

TTIS 


TEMPERATURE INTO STAGE 

c 

PIS 


PRESSURE INTO STAGE 

c 

cw 


CORRECTED AIRFLOW IN TO STAGE 
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c 

BH 

BLADE HEIGHT - FT 

c 

NB 

NUMBER OF BLADES 

c 

PTBA 

TIP RADIUS OF BLADE 

c 

RTHBA 

HUB RADIUS OF BLADE 

c 

BHAI 

BLADE HEIGHT 

c 

HT1 

HUB/TIP OF BLADE 

c 

TSTRE 

TOTAL TEMPERATURE FOR STRESS CALCULATION 

c 

RHCB 

DENSITY OF BLADE MATERIAL 

c 

UTP1 

BLADE TIP SPEED 

c 

BLN 

NUMBER OF BLADES IN REAL NUMBER 

c 

RHOD 

DENSITY OF CISK MATERIAL 

c 

WT 

STAGE WEIGHT 

c 

CL 

STAGE LENGTH 

c 

WATE 

COMPRESSOR TOTAL WEIGHT 

c 

ALENG 

COMPRESSOR TOTAL LENGHT 

c 

RI 

INNER RADIUS - IN 

c 

RO 

OUTER RADIUS - IN 


C 

C 

c 

SUBROUTINE CMECH (IP, IDE S , NCC ,NC , PR ,RP1 ,TI ,TO,DHA ,DHI ,H1 , FA, A I ,XMO 
l,ARG,ARI,PI,PGl»WI,WO» XMS ,XME,PEF, ITYPE,NI,NO) 

REAL *8DATI NP , DAT OUT, WTF ,TOPRES,TCTEMP,FAR, CORFLO , VMACH, ST ATP , ERRO 
lR,TGL,TOLT,TOLTT,DEPV,DTOL,PERPF 
DIMENSION PRR ( 9 ) , UTIP<9), P«S(20) 

* * * #**#**#:$: £ * % # # 

* COMMON BLOCKS * 

*#*$ St sj:**## ######* 

COMMON /DBL/ DATI NP ( 1 5 ,60 ) , OATCUT ( 9, 60 ) , WTF ( 40 ) , TOP RES ( 40 I ,TOTEMP ( 
140 ) ,FAR(40),CDRFLO(40),VMACH(40) ,STATP(40) ,ERR0R(40) ,TOL,TOLT ,TOLT 
2T,DEPV(20) » DTCL (20 ) ,PEP.PF(20) 

COMMON /SNGL/ JM1 , J M2 , JP1 ,JP2 , JCX , LQCTBU 9,60) ,JC0MP(70) ,IWAY,NIT, 
I IT AB( 70 ) , JCONF (60 , 4 ) , JTYPE(60 ) , JFLOW( 70 J , I OEDAP ( 1 5 ) ,KKI NDS ( 14 , 25 ) , 
2NC OMP ,NGSTAT,NITER,NFINIS,NPASS , JCC , NTBL , NCTS » JCIND ( 20 ) , JCDEP ( 20) , 
3JCVINC(20),JCVDEP(20) ,KDTYP(20) , IDONE(60) 

COMMON /WMECH/ IWMEC(7,60) , WATE (60 ) , ALENGI 60 ) , TLENG<40) , RI ( 2, 40 ) , R 
1C( 2,40) , DESVAL( 15,60) ,DSHAF( 5) ,RPMT(60) ,1 WT, I PLT, I ERR, I SI I , IS 10, I 0 
2UT CD , NS TAG (60 ) 

COMMON /CCNVER/ C0NVEP(15) 

COMMON /DEFAUL/ DEF AUL( 15, 20 ) 

LOGICAL IWT,IPLT,IERR,ISII,ISIO 

******************* 

* DATA STATEMENTS * 

**:$:**#*##**####*##* 

DATA TSTD,P STD, PIE/518. 67, 2116. 22, 3*14159/ 

DATA PRR/1., 1.18,1.36,1.43,1.503,1.581, 1.667,1.775,1.9/ 

DATA UTIP/600. ,885. ,1100. , 1200. ,1300. ,1400. ,1500. , 1600. , 1700./ 
WTFF=0. 

WT RF=0 . 

C I MN=XMS 

ISTATR=IWMEC(2, NCC ) 
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GO TO (10,20) , IDES 
PRM=DES VAL (2 , NCC ) 

HT=DESVAL( 3 » NCC ) 

SOLC=DESVAL (4 , NCC) 

ARIC=DESVAL(5 ,NCC ) 

AR0C=DESVAL(6,NCC) 

C0MN=DESVAL(7,NCC) 

IF (ITYPE. EQ. 4) COMN= XMO 
TMAXI=DESVAL(8» NCC) 

TMAXO=DESVAL( 9, NCC) 

RPMR=DESVAL( 10? NCC) 

RHOM=OE S VAL ( 11 , NCC I 
MODE=IFIX< DESVAL(12,NCC)+.01) 

SCC=DESVAL ( 13 , NCC) 

TM ET=DESVAL{ 14, NCC) 

GO TO 30 
20 PR M=DEFAUL( 2 , ITYPE ) 

HT = DE FAUL (3, ITYPE ) 

SOLC=DEF AUL (4 » ITYP E ) 

ARIC=DEFAUL( 5, 1 TYPE) 

ARGC=DEFAUL(6, ITYPE) 

C0MN=DEFAUL(7, ITYPE) 

IF (ITYPE. EQ. 4) COMN^XMO 
TMAXI=DEFAUL(8,ITYPE) 

TMAXO=DEFAUL( 9, ITYPE) 

RPMR=DEFAUL( 10, ITYPE) 

RHOM=DEFAUL< 11, ITYPE) 

M0DE-IFIX(DEFAUL(12,ITYPE)+.Q1) 

SC C=D EFAUL(13,I TYPE ) 

TMET=DEFAUL( 14, ITYPE) 

30 IF < • NOT • I SI I ) GO TC 40 
TMET=TMET/CONVER( 8) 

TMAX0=TMAXO/CCNVER { 8 ) 

TMAXI=TMAXI/CQNVER(8) 

R HCM=R FCM/CON V ER ( 5 ) 

C 

C FOR DESIGN CASE: CALCULATE NUMBER OF STAGES BASED ON ENTHALPY 
C CHANGE PER STAGE AND MAXIMUM PRESSURE RATIO 
C 

40 IFLAG=1 

XME=C CMN 
SN=0 . 

PR1=PR 

50 SN=SN+1. 

IF (SN.GT.20. ) WRITE (10,220) NCC 
IF (SN.GT.20.) GO TO 80 
C 

C CALCULATE PRESSURE RATIO (PR1) ACROSS THE COMPONENT 
C 

IF ( IWMEC(7,NCC).NE.0) SN-IWMEC (7, NCC) 

H2=hl +DHI/SN 
T2=S THERM (1,H2,FA) 

RP2=STHERM(2,T2, FA ) 

PR 1=RP2/RP1 

IF (I WMEC(7,NCC) .NE.O) GO TO 80 
IF (PR1.GT.PRM) GO TO 50 
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C CALCULATE CORRECTED TIP SPEED (CUTP), TIP 

C RADIUS (RT), CORRECTED ROTOR SPEED (CRPM) , AND ROTOR SPEED (PPM) 

C 

NOUT=KKINDS( 11,1)+1 
DO 60 1=2, NOUT 
NT=KKI NDS< 11,1) 

DO 60 J = 2,4 
N1=JC0NF(NT,J-1 I 
N2=JC0NF(NT, J ) 

IF (N2.EQ.NCC) GO TO 70 
60 CONTINUE 

GO TO 80 

70 RPN=RPMT(N1) 

RPMT t NCC )=RPM 

RT=SQRT( AI/PIE/(1.-HT**2) ) 

CRPM=RPM/SQRT( TI/TSTD) 

CUTP=CRPM/60.*2.*RT*PIE 
GO TO 110 
80 DO 90 1=2,9 

IF (PRl.LT.PRR(D) GO TO 100 
90 CONTINUE 

1 = 9 

100 DX = PRR( I )— PRR(I-l) 

DY=UT IP ( I )— UT I P ( I— 1 ) 

CUTP=(DY/DX*( PR1-PRRI 1-1) )+UTIP(I-l) >*SCC 
RT®SQRT(AI/PIE/(1.-HT*HT» ) 

CPPM=CUTP*60./(2.*RT*PIEJ 
PPN=CRPM*SQRT (TI/TSTD ) 

RPMT ( NCC 1=RPM 
C 

C CALCULATE TIP DIAMETER (DT) IN INCHES, TIP SPEED (UTP), 

C AND NUMBER OF STAGES (NS) 

C 

110 DT =RT*24» 

UTP=CUTP*SQPT (TI/TSTD) 

NS=IF IX( SN+.01 ) 

SND=SN 

C 

C INITIALIZE BLADE TAPER RATIO { TR ) AND CALCULATE BLADE STRESS (ST) 
C AND LOADING PARAMETER (CLP) 

C 

TP = 1 . 8 

IF (NC.EC.3) TR=1.2 
RH01=RHOM 

CALL STRESS ( RT , T I , UTP , HT ,RPM , ST ,TP , NC , IP , RHO 1 , TME T ) 
CLP=200412./UTP*(H2-H1)/UTP/(HT+1.)**2 
C 

C CHECK FCR PRINT FORMAT 
C 

IF (IP.NE.2) GO TO 130 
C 

C WRITE COMPRESSOR DESIGN OATA 
C 

WRITE (10,230) NCC 
WRITE (1C, 240) 
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IF (ISIOI GO TO 120 

WRITE (10,250) CLP, SN , DT , CUTP , RPM, CRPM 
GO TO 130 

120 SDT=DT*CCNVER(1) 

SCUTP=CUTP*C0NVER(2) 

WRITE (10,250) CLP, SN, SOT, SCUTP, RPM, CRPM 
130 RMEAN=RT*SQRT(0.5*( l.+HT*HT ) ) 

RTB=RT 
RH B=R TB^HT 
RTFR=RT*12. 

WT FF= 0 . 

IF ( IWMEC (3, NCC) .NE.O * ) CALL FRAME (RTFR, IWMEC ( 3,NCC) ,WTFF ,IP) 
R0( 1,NI )=RTFR 
RI (1,NI )=RhB*12. 

DE LMNS= (C IMN-CGMN) 

IF (DELMNS.NE.O. ) DELMNS=DELMNS/SN 
DELAR=APIC-ARCC 

IF (SN.GT.l.) DELAR=DELAR/(SN-1.) 

DHA$= DHA/SN 
DELARI=ARI-ARO 

IF (DELARI .NE.O. ) DELARI=DELARI /SN 
INITIALIZE DESIGN VALUES FOR STAGE-BY-STAGE COMPRESSOR DESIGN 


WT=0. 

CL = 0. 

POS = PI 
EF=~P £F 
TTGS=T 1 

DELTM=(TMAXO-TMAXI)/SN 
HO S=H 1 

XMCS=CIWN+DELMNS 
AR=ARIC+DELAR 
AR 1 1 = AR I+OELARI 
NSTAG(NCC)=NS 
N$T=NS+1 

BEGIN STAGE -BY-ST AGE COMPRESSOR DESIGN 
DO 190 1=1, NST 

INITIALIZE STAGE INLET VALUES: MACH (XMCS), ENTHALPY (HIS), TOTAL 
TEMPERATURE (TTIS), TOTAL PRESSURE (PIS) AND ASPECT RATIO ( AR ) 

XMCS=XMCS— DELMNS 

IF (XMCS.LE.O.) GO TO 210 

hi S=HOS 

TTI S=TTOS 

PIS=POS 

AR I I=AR 1 1— OELAR I 

IF ( AR.NE.O. ) AR=AR-DELAR 


CALCULATE STAGE INLET GAMMA (GA), STAGE EXIT ENTHALPY (HOS) AND 
TOTAL TEMPERATURE (TTOS) 
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GA=STHERM(5,TTIS,FA) 

HO S=HIS+DHAS 
TTOS=STHERM(l ,HGS, FA) 

C 

C CALCULATE AVERAGE TOTAL TEMPERATURE (TGAM), GAMMA (GAV) AND PRESSURE 
C RATIG (PRS) ACROSS THE STAGE AND STAGE EXIT TOTAL PRESSURE <POS) 

C 

TGAM= (TTIS+TTOS )/2« 

GAV=STHERM(5,TGAM,FA) 

TOSl=EF*ALOG(TTOS/TTIS) 

T0S2=EXP (TOS1 ) 

PRSU )=TOS2**(GAV/(GAV-l. ) ) 

POS=P IS*PRS ( I ) 

c 

C CALCULATE STAGE INLET CORRECTED FLOW (CW) AND STAGE INLET AREA (A1C) 
C 

W1=WI 

CW=W1*SQRT(TTIS/TSTD)/PIS*PSTD 

A1C=0. 

CALL DUCT 1 (TTIS,PIS, W1 , GA , XMCS , A 1C ) 

GO TO (140,150,160) , MODE 
C 

C CALCULATE RTB FOR CONSTANT HUB 

C 

140 PTB=SQRT(RHB*RHB+A1C/PIE) 

GO TO 170 
C 

C CHECK FOR MEANINGLESS STAGE AND BLADE PARAMETERS. CALCULATE BLADE 
C HEIGHT (BH) AND NUMBER OF BLADES (NB) 

C 

150 CHECKA=PMEAN*PMEAN-A1C/(2.*PIE) 

IF (CHECKA.LE.O. ) GO TO 210 
RTB=SQRT(RMEAN*RMEAN+A1C/(2.*PIE) ) 

RHB=SQRT(CHECKA) 

GO TO 170 
C 

C CALCULATE RHB FOR CONSTANT TIP 

C 

160 PHB=RTB*PTB-A1C/PIE 

IF (RHB.LE.O.) GO TO 210 
RHB=S CRT ( RHB ) 

170 BH = RT B-RHB 

NB-IF IX ( PIE*2.*RTB*S0LC*AR/BH) 

C 

C CALCULATE BLADE TIP RADIUS ( RTBA ) , HUB RADIUS (RHBA) AND HEIGHT 
C { BHAI ) IN INCHES 
C 

RTBA=RTB*12. 

RHBA=RHB*12. 

IF ( I .GE.NST) GO TO 190 
BHAI=BH*12. 

HT 1=RHBA/RTBA 
C 

C CALCULATE BLADE TIP SPEED (UTP1) AND STRESS (ST1) 

C 

IF (TMAXO.EQ.O.) T STRES=TTIS 
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IF (TMAXO.NE.O. .AND.I.EQ.l) TSTRES=TMAX I-DELTM 
IF (TMAXG.NE.O. } TSTRES^T STRES+DELTM 
RHOB= RHGM 

UTP1-RPM*2o*PIE/60»*RTB 
UT IP 1=UTP1 

IF (PPMR.NE.O.) UTIP1=UTIP1*RPMR 

CALL STRESS ( RTB , TSTR ES , UTI PI ,HT1 ,RPM , ST1 , TR , NC *0 , RHOB, TM ET ) 
8LN=FL0 AT { NB ) 

CALCULATE STAGE WEIGHT ( WTT) AND LENGTH CCLT) AND TOTAL COMPONENT 
WEIGHT { WT ) AND LENGTH (CL) 

RHOD= .168 

IF (TSTRES.GT.TMET) RhOD=.286 
RM=0 . 

IF (ITYPE.EQ.4i RM= SORT ( RT BA**2-AR I I*(RTBA**2-RH8A**2) ) 

IF ( I TYPE.EQ. 4) STl=STl+2 .*PI E/BLN*RHOB*( RM/RT BA )**2*UT I P 1**2 
IF (IP.EQ.2) WRITE (10,300) I 

CALL CWT ( Afi,BHAItRHOB,RHOD,NB,STl,RHBA,WTT,CLT,NC, I, ISTATR,HT1,RM 
1) 

IF (IP.EQ.2) WRITE (10,280) 

WT =WT + WTT 
CL-CL+CLT 

IF (IP.NE.2) GO TO 190 
IF ( ISIO) GO TO 180 

WRITE (10,290) PRS( I) , DHAS , XMCS , A1C ,R HB A, RTBA , NB , UTP 1 , ST 1 , WTT , TTI S 
GO TO 190 
160 SDP=CHAS*CGNVER(9) 

SAI=A1C*C0NVER(4) 

SRT6=RTBA*C0NVER(1) 

SRHB=RHBA*CQNVER(1 ) 

SUTP=UTP 1*C0NVER( 2 ) 

SST=ST1*CQNVEP(6> 

SWT=WTT*-C0NVER(3) 

STT I=TT IS#C0NVER(8) 

WRITE ( 10,290) PRS( I) , SDH , XMCS , SAI , S RHB , SRTB, NB, SUTP , SST , S WT, STT I 
190 CONTINUE 

IF (IWMEC(4, NCC). NE.O) CALL FRAME ( RTBA ,1 WMEC (4, NCC ) , WTFR , IP ) 

WT =WT +WTFR+WTFF 
RF=0. 

FF=0. 

IF ( IWMEC(3,NCC) .NE.O) FF=CL/ ( 2 .*NS ) 

IF (IWMEC(4, NCC ) .NE.O) RF=CL/NS 
CL=CL+FF+RF 
WATE ( NCC ) =WT 
ALENG(NCC)=CL 
R I ( 2 , NO ) =R HBA 
RO ( 2 , NO ) =RTBA 
IF (IP.NE.2) RETURN 
C 

C WRITE TOTAL COMPONENT WEIGHT AND LENGTH 
C 

WRITE (10,260) 

IF ( ISIO) GO TO 200 
WRITE (10,270) NS , WT , CL 
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RETURN 

200 SWT=WT*CCNVER<3) 

SCL=CL*CQNVER( 1) 

WRITE <10,270) NS,SWT,SCL 
RETURN 

210 WRITE ( 10,310 ) NCC 
RETURN 
C 

220 FORMAT (11H COMPRES SOR, I 3, 28H PRESSURE RATIO IS TOO HIGH } 

230 FORMAT ( 12H CGMPRE SSOR , 1 3 , 19H MECHANICAL DESIGN ,/) 

240 FORMAT <49H LOAOING N STG DIAM U TIP C RPM C RPM ) 

250 FORMAT { F9.3 , 2F8.2 , 3F8. 1 ) 

260 FORMAT </,24H N STG WEIGHT LENGTH ) 

270 FORMAT < 1 6 » F9 .2 » F8 . 2 » /) 

280 FORMAT (42H PR DEL H MACH AREA R HUB R TIP NB»26H U TIP 

1 STR WEIGHT TIN) 

290 FORMAT ( F7. 4 , F6. 1 f .F 6. 3 » F7 .3 , F6 . 2, F7 . 2 , 1 4 , F7 . 1 , F7 . 0 , 2F6 . 0 ) 

300 FORMAT </,7H STAGE ,14) 

310 FORMAT (11H COMPRESSOR, 13, 28H STAGE AND BLADE PARAMETERS , 13H MEAN 
1INGLESS ) 

END 
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SUBROUTINE (CWT ) 

PURPOSE 

THIS ROUTINE CALCULATES THE WEIGHT AMO LENGTH 
OF FANS AND COMPRESSORS. 

CALLING ROUTINES 


REQUIRED SUBROUTINES 


MODIFICATION HISTORY 


DATE ID ANALYST DISCRIPTIGN 


AUTFQR/LANGU AGE/ DATE 


E. ONAT , R. J. PERA/FORTRAN IV/ 09 30 76 


GLOSSARY 


NAME 

ORIGIN 

USAGE 

DISCRETION 


AR ARG ASPECT RATIO 


BH 

ARG 

BLADE HEIGHT 

RFOB 

ARG 

BLADE DENSITY 

RHOD 

ARG 

DISK DENSITY 

NB 

ARG 

NUMBER OF BLADES 

ST 

ARG 

BLADE ROOT STRESS 

RHB 

ARG 

BLADE HUB RADIUS 

WT 


STAGE WEIGHT 

CL 


STAGE 'LENGTH 

NC 

ARG 

COMPONENT TYPE 

I 

ARG 

STAGE NUMBER 

NST 

ARG 

STATOR INDICATOR 

HTR 

ARG 

HUB-TIP PATIO 

RM 

ARG 

SPLITTER RADIUS 

VB 


BLADE VOLUME 

SF 


STRESS FACTOR 

VD 


DISK VOLUME 

WTD 


DISK WEIGHT 


B-21 



ooo i-* n n o ooooo r>oo 


C WTB 
C WTS 
C WTNB 
C WTCASE 
C 

c 


BLADE WEIGHT 
STATOR WEIGHT 
NUTS AND BLOTS WEIGHT 
CASE WEIGHT 




CALCULATE TOTAL BLACE AND STATOR WEIGHT 

SUBROUTINE CWT ( AR , BH , RHOB , RHOD , NB , ST , RHB , WT , CL , NC , I , NST , HTR t RM ) 
REAL *8DATINP,DAT0UT, WTF, TORRES, TOT EM P, FAR, CORFLO, VMACH, STATE ,ERRO 
1R, TOL,TOLT,TOLTT,DEPV,DTOL ,PERPF 

* COMMON BLOCKS * 

COMMGN /DBL/ DAT INP ( 1 5 , 60 ) , DATOUTt 9 * 60 ) , WTF ( 40) ,TGPRES(40) ,TOTEMP( 
140) ,FAR<40) ,C0RFL0(40 ) , VM ACHI40 ) , STAT P ( 40 ) , ERROR ( 40 ) , TOL , TOLT , TOL T 
2T,DEPV(2G) ,DT0L(20) ,PERPF(20) 

COMMON /SNGL/ J Ml, J M2 t JP1 , UP 2 , JCX, LOCTBL ( 9,60 ) , JCOMPI 70) , I WAY, NI T , 
1ITAB( 70) ,JCONF( 60,4) , JTYPEI60) ,JFLOW( 70) ,IDEDAP(15) ,KKINDS (14 ,25 ) , 
2NC0MP,NQSTAT, NITER, NF INIS, NPASS , JCC , NTBL , NCTS,JCINO( 20) ,JCDEP(20) , 
3JCVINDC20) , JCVDEP(20) ,KDTYP( 20) , I DONE (60) 

COMMON /WMECH/ IWMEC( 7, 60 ) , WA TE ( 60 ) , ALENG (60) , TLENG(40) ,RI (2,40) ,R 
10( 2,40) ,DESVAL( 15,60) , DSHAFt 5 ) , RPMT (60 ) , IWT, IPLT, I ERR , I SI I , I S 1 0, 1 0 
2UTCD, NSTAG(60) 

COMMON /CGNVEP/ C0NVER(15) 

COMMON /DEFAUL/ DEF AUL( 15 , 20 ) 

LOGICAL IWT, IPLT, I ERR , I S 1 1 , 1 S 10 
IF ( I .NE.l J GO TO 10 

CALCULATE STAGE LENGTH AND BLADE AND STATOR WEIGHT 

RHI-RHB 
CL=2.*BH/AR 
XCL=. 17*CL 

IF (NST.GT.O) CL=XCL+CL 
IF (NST.LE.O) CL=CL/2. 

VB=.12*BH**3/AR**2 

IF (NC.EQ.l) VB=«055*BH**3/AR**2 

IF (HTR.GT..8) VB=( 1. 2+( HTR- . 8 1*4. )*. 1*BH**3/ AR*#2 
BN=NB 

WTB=VB*PH0B*NB+.2*3.1415*BH**2/AR**2*RHCB*RM 
WT S=WTB 

CALCULATE DISK WEIGHT 

SF=ST*RHB/100000. 

IF (RH0D.GT..2) GO TO 30 

VD=< .11+(.00789*SF) )* (RHB*2 • ) **2 

IF (SF.GT..4) VD*( . 1626 2- . 2138542* SF+ . 23954613*SF**2-. 035 15625*SF* 
1*3 )*( RFB*2 . )**2 

IF (SF.GT.2.4) VD=(-.2326+.31994SF)*(RhB*2.>**2 
IF ( NC. EQ.1.AND.I.GT.3) GO TO 20 
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IF(NC.EQ.1)V0=( .11+.4496*$F)*(RHB*2.)**2 

IF ( NC .EQ.l.AND.SF.GT .2. 4 .AND .SF.LT.5.2) VD=( . 945 8+. 1014*SF )*( RHB* 
12. )**2 

20 GO TO 40 

30 VD=( .11+.003875*SF)*( RHB*2.)**2 

IF { SF.GT..8) VD = ( . 172121-. 1543155*SF+. 10808*SF**2-.0090774*SF**3 ) 
1*(RHB*2. )**2 

IF (SF.GT.4.) VD=(-„5015+.3*SF)*(RHB*2. )**2 
40 WT D=VD*RHOD 

WTNB=(RHI*.75)*2.*3.1416*.075*CL*.286*RhI 
IF (NC.EQ.l.AND.I.EQ.l) WTNB=0. 

IF (NST.LE.O) WTS=0. 

WTCASE=(RHB+BH)*2.#3. 1416*CL*. 1*.286 
WT = WT D+WTS +WT B+WTNB+WTC AS E 
IF ( I0UTCD.NE.2) RETURN 
IF ( IS IC I GO TO 50 
WRITE (10,60) 

WRITE (10,70) WTD , WTB ,WTS , WTN B , WTCASE ,CL, RHGB , RHOD, AR 
RETURN 

50 WTD=WTD*C0NVER(3) 

WT S=WTS*CONVER ( 3 ) 

WTB=WTB*C0NVER(3) 

WTNB=WTNB*CONVER( 3) 

WTCASE=WTCASE*CGNVER(3) 

$Cl=CL*CONVER(l) 

SRH0B=RH0B*C0NVER(5) 

SRHOC=RHOD*CGNVER( 5 ) 

WRITE (10,60) 

WRITE (10,80) WTD, WTB » WTS , WTN B» WTCASE , SCL , SRHOB , SRHOD, AR 
RETURN 
C 

60 FORMAT (48H WD WB WS WN WC CL RHOB RHOD AR) 

70 FORMAT ( 5F5. 0, F6. 1 , F6 .3, F6.3, F6. 2) 

80 FORMAT ( 5F5 . 1 , F6 . 3, 2F6. 5 , F6 . 2 ) 

END 
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SUBROUTI NE(COMBWT) 

PURPOSE 

THIS ROUTINE CALCULATES THE WEIGHT AND LENGTH 
CF PRIMARY BURNERS, DUCT BURNERS AND AUGMENTERS. 

CALLING ROUTINES 


REQUIRED SUBROUTINES 


MODIFICATION HISTORY 


DATE 


ID ANALYST DISCRETION 


AUTHOR /LANGUAGE/ DATE 


E. ONAT , R. J. PERA/FORTRAN IV/ 09 30 76 


GLOSSARY 


NAME 

ORIGIN 

USAGE 

D I SCR IPT ION 


ICOMP ARG I/O COMPONENT NUMBER 


ITYPE 

BURNER TYPE 

VR 

THROUGH FLOW VELOCITY 

TR 

RESENDENCY TIME 

WC 

CORRECTED AIRFLOW 

PO 

PRESSURE IN 

TC 

TEMPERATURE IN 

FA 

F/A RATIO IN 

DM 

MEAN DIAMETER IN IN 

PTR 

REF TIP RADIUS FOR DM 

RHR 

REF HUB RADIUS FOR DM 

GAMB 

GAMMA 

AMACH 

MACH NUMBER 

WSP 

FLOW PER UNIT AREA 

R 

HUB TIP RATIO 

Dh 

INNER DIAMETER 

DT 

OUTER DIAMETER 

RT 

OUTER RADIUS 
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C 

RH 

INNER RADIUS 

c 

BLEN 

LENGTH 

c 

WTCASE 

OUTER CASE WEIGHT 

c 

WTLIN 

LINNER WEIGHT 

c 

NN 

NUMBER OF FUEL NOZZLES 

c 

WTN 

FUEL NOZZLE WEIGHT 

C 

WTICAS 

INNER CASE WEIGHT 

c 

NTCT 

TOTAL WEIGHT 


C 

C 

c 

SUBROUTINE CGMBWT (ICGMP) 

REAL *8DATINP ,DATOUT, WTF ,TOPR ES , TOT EMP , FA R, CORF LO, VMACH, ST ATP , ERRO 
1R,TOL,TCLT,TOLTT,DEPV,DTQL,PERPF 

!j: 

* COMMON BLOCKS * 

COMMON /D6L/ DATINP(15,60)» DA TOUT (9,60) ,WTF(40) ,T0PRES(4Q) ,T0TEMP( 
140), FAR (40) ,C0RFL0(40 ), VMACH (40) , STATP ( 40 ) , ERROR ( 40) ,TOL, TOLT , TOLT 
2T, DEP V ( 20 ) » DTOL ( 20 ) ,PEBPF(20) 

COMMON /SNGl/ JMI , J M2 , J PI , JP2 , JCX , LOCTBL ( 9,60 ) , JCOMP( 70 ) , I WAY , NI T , 
llTABt 70) »JCGNF(60*4) , JTYPE(60) ,JFL0W(70) ,IDEDAP( 15 ) ,KKI NDS (14,25 ) , 
2NCQMP , NGSTAT,NITER,NFINIS»NPASS,JCCjNTBL,NCTS,JCIND(20) ,JCDEP(20) , 
3JC VINO( 20) » JC VDEP( 20) ,KDTYP(20) , I DONE (60) 

COMMON /WMECH/ I WMEC( 7 , 60 ) , WATE l 60 ) ,ALENG(60) ,TLENG(40) ,RI (2,40) , R 
10(2 t 40) ,DE$VAL( 15,60) , DSHAFt 5 ) , RPMT (60 ) , IWT, I PLT, IERR, I SI I ,ISIO, 10 
2UT CD , NSTAG( 60 ) 

COMMON /CONVER/ C0NVER(15) 

COMMON /DEFAUL/ DEF AUL ( 15 , 20 ) 

LOGICAL IWT, IPLT, IERR, ISII,ISIO 
DATA LPBUR, LAUG/4HPBUR,4HAUG / 

IF (IOUTCD.GT.il WRITE (10,120) I WMEC ( 1 , I COMP ) , IC OMP, IOUTCD 
INITIALIZE INPUTS 
ITYPE=1 1 

IF (IWMEC(1,IC0MP).EQ. LPBUR) ITYPE=10 
IF (I WMEC(i,ICOMP).EQ.LAUG) ITYPE=13 
VR=DE FAUL ( 1 , 1 TYPE ) 

TR=DE FAUL ( 2 , ITYPE ) 

ID ES= 1 

IF (DESVALU, ICOMP). EQ.O.) IDES=2 
IF (IDES.EQ.2) GO TO 10 
VR=DESVAL(1, ICOMP) 

TR=DESVAL(2, ICOMP) 

10 NODE I =JCONF < ICOMP , 1 ) 

NODEO=JCONF( ICOMP, 3) 

WC-CCRFLC(NODEI ) 

WC=WC/1. 54972555 
PO=TO PRES ( NOD E I ) 

PQ=P0*144« 

TG=TOTEMP(NODEI) 

FA=FAP ( NODE I ) 
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DM=0. 

IF (I TYPE. EQ. 13) GO TO 60 

IF (DEFAUL(3, ITYPE) .NE.O. ) DM=2.*DEFAUL (3 , ITYPE ) 

IF (DESVAL(3, ICOMP) .NE.O. ) DM=2.*DESVAL ( 3, ICOMP ) 

IF ( I SI I ) DM=DM/C0NVER(1) 

IF { I DES.EQ.l. AND. DESVAL(4» ICOMP) .EQ.O.. AND..D.ES.VAL(-3, -ICOMP) .EQ.O. ) 
1 NDI=NODEI 

IF ( I DES.EQ.l. AND. DESVAL (4, IC OMP) .EQ.O. .AND. DESVAU 3, ICOMP). EQ.O. ) 
1 GO TO 40 

IF ( IDES.EQ.2. AND. DEFAUL ( 4, ITYPE ) . EQ. 0. . AND. DEFAUL ( 3, ITYP E) .EQ.O. ) 
1 NDI=NODEI 

IF ( IDES. EQ. 2. AND. DEFAUL (4, I TYPE) .EQ.O. .AND. DEFAUL ( 3 , ITYP E ) .EQ . 0 . ) 
1 GO TO 40 

IF (DESVALI4, ICOMP) .NE.O. ) GO TO 30 
IF (DEFAUL(4 t ITYPE) .NE.O. ) GO TO 20 
GO TO 50 

20 IDI=IFIX(DEFAUL(4, ITYPE)+.01) 

ND1=JC0NF< IDI,3) 

GO TO 40 

30 IDI=IFIX(DESVAL(4» ICOMP )+.01 ) 

ND I=J CDNF ( ICI,3) 

40 RTR=RO( 2 » NDI ) 

RHfi=R I ( 2 r NDI ) 

DM=RTP+RHR , 

50 DM-DM/ 12 . 

60 IF USII) VR = VP/C0NVER(2) 

C 

C CALCULATE MACH NUMBER AND FLOW PER UNIT AREA 
C 

c 

GAMB=STHERM(5,TG,FA) 

AMACH=VR/SQPT(GAMB*32.17*53.3*T0-(GAMB-1. )/2.*VR**2) 
WSP=PO*AMACH*SQRT(GAMB/(53.3*TO)*32.2)*U./(1. + (GAMB-1. )/2 .*AMACH* 
1*2) )**( (GAMB+1. )/2./<GAMB-l. ) ) 

WSP=WSP* 2116. 22 /PO* SQRT (TO/518. 67) 

IF ( ITYPE. EQ. 13) GO TO 70 
C 

C CALCULATE BURNER DIMENSIONS 
C 

R=( l.-2.*WC/WSP/3.1415/DM**2) 

IF (R.LE.O.) R=0. 

R=SQRT ( R) 

DH=R*DM*12 . 

70 IF (ITYPE. EQ. 13) DH=0. 

DT=SQRT (DH**2/144»+4.*WC/WSP/3. 1415) *12. 

RT =DT / 2 . 

RH=DH/2. 

BLEN=VR*TR*12. 

C 

C CALCULATE WEIGHT 
C 

WTCASE=3. 141 5*P0/144.*DT**2*BLEN*. 3/ 166000. 
WTLIN=.055*3.1415*BLEN*.3*(DH+DT) 

NN~IFIX(3.1415*(DT+DH)/ ( .6*( DT— DH ) ) ) 

WTN= . 009*BLEN*3. 141 5/4.* ( DT-DH) **2/4. *. 3*NN 
WTICAS=3.1415*P0/144.*DT*BLEN*.3*DH/ 166000. 
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WT OT = WTCASE+WTL I N+WTN+WTICAS 


CALCULATE FRAME WEIGHT FOR PRI 8URNERS 
WTFRAM=0. 

IF ( ITYPE.EQ.10.AND.IWMEC(2, ICOMP) .EQ.l) CALL FRAME ( RT ,4 , WTFRAM , 0 
1) 

WTOT=WTOT+WTFRAM 

STCRE OUTPUT 

WATE( ICOMP )=WTCT 
ALENG(ICCMP)=8LEN 
R I { I? NODEI ) =RH 
PQ(l,NODEI)=RT 
P I ( 2 1 NCDEO) =RH 
RO ( 2 1 NODEO)=RT 

WRITE OUTPUT 

IF ( I SIC. AND. I0UTCD.EQ.2) GO TO 90 
IF ( IOUTCD.NE .2) RETURN 
IF (ITYPE.NE.IO) GO TO 80 
WRITE tlC, 150) ICOMP 
WRITE (10,180) 

WRITE (10,130) RH,RT, BLEN, AMACH, WSP 
WRITE (10,160) 

WRITE (10,170) WTCASE ,WTLI N, WTN, WTICAS , WTFRAM, WTOT 
GO TO 110 
80 WRITE (10,150) ICOMP 

WRITE (10,180) 

WRITE (10,130) RH,°T, BLEN, AMACH, WSP 
WRITE (10,190) 

WRITE (10,200) WTCASE ,WTLIN, WTN, WTICAS, WTOT 
GO TO 110 

SO RT=RT*CGNVER( 1) 

RH=RH*CCNVER(1) 

WSP=WSP*C0NVER(7) 

WTLIN=WTLIN*CGNVER(3) 

WTN=WTN*C0NVER(3) 

WT ICAS=WTICA S*C0NVER ( 3) 

WTFRAM=WTFRAM*C0NVER(3) 

WTOT= WTCT^CONVER (3) 

WTCASE=WTCASE*C0NVER(3) 

IF (ITYPE.NE.IO) GO TO 100 
WRITE (10,150) ICOMP 
WRITE (10,180) 

WRITE (10,140) RH,RT, BLEN, AMACH, WSP 
WRITE (10,160) 

WRITE (10,170) WTCASE, WTLIN, WTN, WTICAS, WTFRAM, WTOT 
GO TO 110 

100 WRITE (10,150) ICOMP 
WRITE (10,180) 

WRITE (10,140) PH, RT, BLEN, AMACH, WSP 
WRITE (10,160) 

WRITE (10,200) WTCASE, WTLIN, WTN, WTICAS, WTOT 
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RETURN 


110 

c 

120 FORMAT ( 1H /14H ************* /14H * 

1/14H * */13H ************,11) 

130 FORMAT (5F9.3) 

140 FORMAT (5F9.3) 

150 FORMAT (15H BURNER NUMBER 14) 

160 FORMAT (53H CAS WT LIN WT NOZ WT 

170 FORMAT (6F9.1,//) 

180 FORMAT ( 44H RIN ROUT LENGTH 

190 FORMAT (43H CAS WT LIN WT NOZ WT 

200 FORMAT (6F9.1,//) 

END 


*/4H * ,A4,I3,3H * 


INC WT 

FRAME 

WTOT) 

MACH 

WSPEC J 


INC WT 

WTOT ) 
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SUBROUTINE ( CUCTWT ) 

PURPOSE 

THIS ROUTINE CALCULATES THE WEIGHT AND LENGTH 
OF THE DUCTS. 

CALLING ROUTINES 


REQUIRED SUBROUTINES 


MODIFICATION HISTORY 


DATE ID ANALYST DISCRIPTION 


AUTHOR /LANGUAGE/DATE 


E. ONAT , R. J. PEPA/FORTRAN IV/ 09 30 76 


GLOSSARY 


NAME 

ORIGIN 

USAGE 

DISCRIPTION 

ICOMP 

ARG 

I/O 

COMPONENT NUMBER 

NODEI 



NODE IN 

NODEO 



NODE OUT 

TLh 



LENGTH TO HEIGHT RATIO 

AM 



MACH NUMBER IN 

NODER 



REF COMPONENT NUMBER FOR DM 

RHR 



REF HUB RADIUS 

RTR 



REF TIP RADIUS 

WA 



AIRFLOW 

PC 



PRESSURE IN 

TO 



TEMPERATURE IN 

FA I 



F/A RATIO IN 

DM 



MEAN DIAMETER IN IN 

GAMB 



GAMMA 

RHO 



MATERIAL DENSITY 

STR 



REF STRESS 

R 



HUB TIP RATIO 

DH 



INNER DIAMETER 
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c 

DT 

OUTER DIAMETER 

c 

RT 

OUTER RADIUS 

c 

RH 

INNER RADIUS 

c 

BLENG 

LENGTH 

c 

WTCASE 

OUTER DUCT WEIGHT 

c 

WTICAS 

INNER DUCT WEIGHT 

c 

WTOT 

TOTAL WEIGHT 


c 

c 

c 

SUBROUTINE DUCTW IICOMP) 

REAL *8DATINP,DATOUT,WTF,TOPBES,TOTEMP,FAR, CORFLO, VMACH, ST ATP , ERRO 
1R, TOL,TOLT,TOLTT,DEPV,DTOL,PERPF 
C 

C tf#*#***##*****#** 

C * COMMON BLOCKS * 

c 

COMMON /DBL/ DATINP ( 15 ,60) ,DATQUT( 9 ,60 ) ,WTF(40) ,TOPRES (40 I ,TOTEMP ( 
140), FAR (40) ,CORFLO( 40 ), VMACHt 40), STATPt 40), ERROR (40) , TQL , TOLT , TOLT 
2T, DEP V ( 20) »DTOL( 20) ,PERPF(20) 

COMMON /SNGL/ JMl , J M2 , JP1 , JP 2, J CX , LOC TBL ( 9 , 60 ) ,JC0MP(70) , I WAY, NIT, 
1ITAB( 70,) , JC0NF(60,4 ) , JTYPE(60 ) , JFL0W(70), IDEDAP ( 1 5 ) ,KKINDS ( 14, 25 ) , 
2NC0MP ,N0STAT,NITER,NFINIS,NPASS,JCC,NTBL,NCTS,JCIND(20) ,JCDEP(20) , 
3JCVIND(20) ,JCVDEP(20) ,KDTYP( 20 ) , IDONE (60 ) 

COMMON /WMECH/ IWMEC(7,60) ,WATE(60) ,ALENG ( 60) ,TLENG(40) ,RI(2,40),R 
10(2,40),DESVAL(15,60) ,DSHAF(5) ,RPMT(60) , IWT,IPLT, I ERR ,1 SI I , I SI 0, 1 0 
2UTCD , N STAG (60) 

COMMON /CONVER/ C0NVER(15) 

COMMON /DEFAUL/ DEF AUL( 15 , 20 ) 

LOGICAL I WT »IPLT,IERR»ISII,ISIO 

IF ( I0UTCD.GT.1) WRITE (10,130) IWMEC( 1, ICOMP ) , ICOMP, IOUTCD 
NODEI=JCCNF( IC0MP,1) 

NODEO=JCONF ( ICOMP, 3) 

TLH=0 » 

IF ( IWMEC(2, ICOMP) .EQ.l) GO TO 10 
IF (IWMEC(2,IC0MP).EQ.2) GO TO 20 
GO TO 40 

10 WATE( ICOMP )=0 . 

ALENG(IC0MP)=0. 

RO ( 1 , NOOEI )=RG( 2., NODE I ) 

RI (1 , NODE I )=RI (2, NODEI ) 

R0(2,N0DEG)=R0(2,N0DEI) 

RI(2,N0DE0)=RI(2,N0DEI) 

RETURN 

20 IF (DESVAL(2, ICOMP) .EQ.O. ) GO TO 30 

TLH=DESVAL(2, ICOMP) 

GO TO 50 

30 TLH=DEFAUL(2, 12) 

GO TO 50 

40 BLEN=TLENG(NODEO)-TLENG(NODEI ) 

50 IF (DESVAL(1, ICOMP) .EQ.O.) GO TO 70 

AM=DESVAL( 1, ICOMP) 

IF (DESVAK4, ICOMP) .LT.O. ) NODER=JCONF( ICOMP, 1 } 

IF (DESVAL(4, ICOMP) .LT.O. ) GO TO 90 
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IF (DESVAL(3 f ICOMP) .EQ.O. . AND. DESVAL (4, ICOMP) .NE.O. ) GO TO 60 
DM=2.*DESVAL(3,IC0MP)/12. 

IF C I SI 1 1 DM=GM/ CONVER Cl) 

GO TO 100 

60 N0DER=IFIX(DESVAL(4, IC0MP)+„01) 

GO TO 90 

70 AM=DEFAUL(4, 121 

IF (DEFAUL(4,12).LT.0.) NGDER=JCONF ( ICOMP , 1 ) 

IF (DEFAUL(4, 12) .LT.O.J GO TO SO 

IF (DEFAUL(3,12) . EQ.O..AND.DEFAUL (4, 12) .NE.O. ) GO TO 80 
DM=2.*DEFAUL(3, 12)/12. 

IF (ISII) DM=DM/CONVER( 1) 

GO TO 100 

80 NODER=IFIX(DEFAUL(4,12)+.01) 

SO RHR=PI(2,N0DER) 

RTR=RO( 2 »N0DER ) 

DM=( RHR+RTRJ/12. 

100 WA=UTF( NODEI ) 

PO=TOPRES (NODEI ) 

P0=P0*144. 

TO =TOTEMP( NODEI ) 

FA I=FAR( NODEI ) 

GAMB=STHERM(5,T0,FAI) 

AD=0.D0 

CALL DUCT1 (TG,PO, WA,GAMB, AM, AD) 

R=0. 

IF (DM. NE.O.) R=(1.-2.*AD/3.1415/DM**2) 

IF (R.LE.O.) R=0 • 

R=SQRT (R) 

DH=R*DM*12. 

DT=SQRT(DH**2/144.+4.*AD/3.1415)*12. 

IF (TLH.NE.O.) BLEN=TLH*(DT-DH)/2. 

PHO- • 168 
ST R=5 0000 . 

IF ( TO. GT. 1160. ) RH0= .286 
IF (TO. GT. 1160. ) STR=70000. 

WTCASE=3.1415*P0/144.*DT**2*BLEN*RH0/(2.*STR) 

WTICAS=3.1415*P0/144.*DT*BLEN*DH*RH0/(2.*STR) 

WTCT= WTCASE+WTICAS 
RH=DH/2 . 

RT =DT/2 . 

WATE(ICCMP)=WTOT 
ALENG( ICOMP) =BLEN 
RG ( 1 » NODEI ) = RT 
R I ( 1, NODEI )=RH 
RO ( 2, NQDEC )=RT 
PI (2 » NODEG ) =RH 
IF ( I0UTCD.NE.2) RETURN 
WRITE (10,210) ICOMP 
IF ( I SI G ) GO TO 110 
WRITE (10,140) PH, RT, BL EN 
WRITE (10,150) AD, RHO 
WRITE (10,160) 

WRITE (10,200) WTCASE ,WTICAS , WTGT 
GO TO 120 

110 SRF=Rh*CCNVER(l) 
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SRT=RT*CGNVER( 1) 

SBLEN=BLEN*CGNVER(1) 

SAD=AD*CGNVER(4) 

SRK=RFC*CGNVER(5I 

SWTCAS=WTCASE*C0NVER(3) 

SWTICA=WTICA$*CGNVER(3) 

SWTGT-WT0T*C0NVER(3 ) 

WRITE (10,170) SRH , SRT , SBLEN 
WRITE (10,180) SAD, SR HO 
WRITE (10,190) SWTCAS ,SWTICA , SWTOT 
120 RETURN 
C 

130 FORMAT ( 1H /14H #*£&****&**#:$: /^4h # */4H $ ,A4,I3 3H $ 

1/14H * */13H *#*#****#*#*, i i j ,*.t- 

140 FORMAT ( 4H RH=,F8.2,4H RT=,F8.2,6H LENG=,F8.2) 
i50 FORMAT (6H AREA=, F8 «3,5H RH0=,F4.3) 

160 FORMAT (35H CAS WT INC WT WTOT) 

170 FORMAT (4H RH=,F8.4,4H RT=,F8.4,6H LENG=,F8.4) 

180 FORMAT ( 6H AREA=,F8 *4,5H RH0=,F8.7) 

190 FORMAT ( 12H OUTER CASE=,F7.4, 12H INNER CASE=,F7.4,7H TGTAL=,F7.4) 
200 FORMAT (3F13-4,//) 

210 FORMAT ( 7H DUCT ,14) 

END 
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c 

C SU6RCUT INE ( DUCT ) 

c 

c 

C PURPOSE 

c 

C THIS ROUTINE CALCULATES INLET AND EXIT AREAS 
C AND MACH NUMBERS FOR VARIOUS COMPONENTS AND 
C THEIR STAGES. 

C 

C CALLING RGUTINES 

C 

C 

c 

C REQUIRED SUBROUTINES 

C 

C 

c 

c MODIFICATION HISTORY 
C 

c 

C DATE IC ANALYST DISCRIPTIGN 

C 

C 

c 

C AU T HOR/L ANGUAGE/DATE 
c 

C E. ONAT , R. J. PERA/FORTRAN IV/ 09 30 76 

C 

c 

C GLOSSARY 

C 

C 

C 


c 

NAME 

ORIGIN 

USAGE 

DISCRETION 

L 

C 





c 

T I 

ARG 


TEMPERATURE IN 

c 

PI 

ARG 


PRESSURE IN 

c 

WI 

ARG 


AIRFLOW IN 

c 

A 

ARG 


MACH NUMBER INPUT 

c 




AREA OUTPUT 

c 

FA 

ARG 


F/A RATIO 

c 

XM2 

ARG 


MACH NUMBER 

c 

PS 

ARG 


STATIC PRESSURE 

c 

Q 

ARG 


DYNAMIC PRESSURE 

c 

IP 

ARG 


PRINT INDICATOR 

c 

TS 



STATIC TEMPERATURE 

c 

HI 



ENTHALPY 

c 

V 



VELOCITY 


c 

c 

C#>jc:£X: #***£****#££#*##**#* #$**##***##£*#**£#**$** 5 to : ** : fc J fc* : * ! 3 ic * 1 ***#* 3 fc 3 fc ; * 3jc ***** 

c 
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C * COMMON BLOCKS * 

c 

SUBROUTINE DUCT ( T I ,P 1 1 WX , A , FA , XM2 , PS , V ,1 SIO, I P) 

COMMON /CONVER/ CONVER(15) 

COMMON /DEFAUL/ DEFAUU 15,20) 

LOGICAL ISIO 
IF (Tl.LT. 200.) 11=200. 

IF (TI.GT.6000.) T 1=6000. 

C 

C CHECK FOR DUMMY DUCT. CALCULATE MACH NUMBER ( XM2 ) OR AREA (A) 
C 

XM 2= A ! 

IF (A.GT.O.) GO TO 10 
A=0. 

XM2=0 . 

V=0. 

10 IF (A.EQ.O.) GO TO 20 
GA=ST FERM(5,TI,FA) 

CALL DUCT1 (TI ,PI,WI ,GA,XM2, A) 

C 

C CALCULATE STATIC TEMPERATURE (TS) AND PRESSURE (PS) 

C 

C2=1.+(GA-1. )/2.*XM2*XM2 
TS=TI/C2 

PS=PI /C2**(GA/(GA— 1. ) ) 

C 

C CALCULATE ENTHALPY (HI) AND VELOCITY (V) 

C 

HI=STHERM(4,T I , FA) 

IF ( TS.GT.TI ) T S=TI 

V=SQRT((2.*GA/( GA— 1 • ) )*53. 34*32 • 174* ( T I— T S ) ) 

C 

C CALCULATE DYNAMIC PRESSURE (Q) 

C 

Q=PS/53.34*V/2.*V/TS/53.34 - 
20 IF (IP.NE.2) RETURN 
C 

C WRITE DUCT DATA 
C 

IF (.NOT. ISIO) GO TO 30. 

VSI=V*CONVER( 2) 

TI S I=T 1/1.8 
PI SI=PI*CGNVER(11) 

PSSI=PS*C0NVER(11) 

AS I =A*CCNVER (4 ) 

WRITE (10,40) 

WRITE (10,50) 

WRITE (10,60) XM2, VSI ,TISI ,PISI,PSSI ,ASI,GA 
RETURN 

30 WRITE (10,40) 

WRITE (10,50) 

WRITE (10,60) XM2,V,TI,PI,PS,A,GA 
RETURN 
C 

40 FORMAT (6H DUCT ) 
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50 FORMAT (48H M NO VEL T TOT P TOT P STAT AREA 
60 FORMAT ( F6.3, 2F6.0,F8.0,F8.0»F10.4,F8.4,/) 

END 


GAM) 
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SUBROUTINE! CUCT1) 

PURPOSE 

THIS ROUTINE CALCULATES THE INLET AND EXIT 
AREAS FOR THE STAGE BY STAGE ANALYSIS. 

CALLING ROUTINES 


REQUIRED SUBROUTINES 


MODIFICATION HISTORY 


DATE ID ANALYST DISCRIPTIGN 


AUTHOR /LANGUAGE/ DATE 


E. ONAT , R. J. PERA/FORTRAN IV/ 09 30 76 


GLOSSARY 


NAME ORIGIN USAGE DISCRETION 


T ARG 

P ARG 

W ARG 

A ARG 

GA 

XM 

PM 

TM 


TEMPERATURE IN 
PRESSURE IN 
AIRFLOW IN 

AREA IF AREA IS NEGATIVE 
MACH IS CALCULATED 
GAMMA 

MACH NUMBER 

FLOW PER UNIT AREA 

TEST MACH NUMBER 


SUBROUTINE DUCT1 ( T , P » W, GA ,XM , A ) 
DATA P,G/53. 34,32.174/ 

IF (A.LT.O.) GO TO 10 
GO TO 30 
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c 

C CALCULATE MASS FLOW PARAMETER (PM) AND CONSTANTS 
C 

10 K=0 

A=ABS ( A ) 

PM=W*SQRT {!)/( P*A) 

XM=PM*20./17. 

C0N1=SQRT { GA*G/R ) 

GP 1=G A+l . 

GM 1=GA— 1. 

C 

C FOR OFF-DESIGN CASE: ITERATE TO A MACH NUMBER (XM) 

C 

20 K=K+1 

C0N2=1.+(GM1/2.)*XM*XM 
T M=XM*C0N1^C0N2**( -GP 1/ ( 2 .^GM 1 ) ) 

IF (ABS(PM-TM) .LE..0004) RETURN 
IF (K.GT.30) WRITE (10,40) 

IF (K.GT.30) RETURN 

SL=C0Nl*C0N2**<-GPi/< 2.*GM1 ) )-XM*XM* ( GP1/2. ) *C0N1*C0N2** ( (-3 .*GA+1 
1 . ) / ( 2 »*GM1 ) ) 

IF (SL.EQ.O.) RETURN 
XN=XM+( (PM-TMJ/SL) 

IF (XN.GE.l.) XN=1. 

IF (XN.LE.O.) XN=.001 
IF (XN.EQ..001.AND.XM.EQ. .001) RETURN 
IF (XN.EQ.1..AND.XM.EQ.1. ) RETURN 
XM=XN 
GO TO 20 
C 

C FCR DESIGN CASE: CALCULATE AN AREA (A) 

C 

30 IF (XM.LE.O.) RETURN 

A=W/XM*SQRT(P/GA*G*T)/P*(1. + (GA-1. )/2.*XM*XM)**( ( GA + 1. ) /( GA-1 . ) /2 . 
1)/G 
RETURN 
C 

40 FORMAT (25H DUCT IS NOT CONVERGING ) 

END 
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C £ :jc jjc £ # s}r:}s ## j(« * % jjt * * j(t # ## :$: :jc $: # j£ 5jc # # aft#*#*# # sjs* j{« # % 5{j ## ^£ % 3{c £ $ sfc # sfc *^c* :$: # :$: * # 

SUBROUTINE! EFFD) 

PURPOSE 

THIS ROUTINE CONVERTS ADIABATIC EFFICIENCIES 
TO PCLYTRCPIC EFFICIENCIES. 

CALLING ROUTINES 


REQUIRED SUBROUTINES 


MODIFICATION HISTORY 


DATE ID ANALYST DISCRETION 


AUTHOR /LANGUAGE/DATE 

E. ONAT , R. J. PERA/FORTRAN IV/ 09 30 76 
GLOSSARY 


NAME 

ORIGIN 

USAGE 

DISCRETION 

T I 

ARG 


TEMPERATURE 

PR 

ARG 


PRESSURE RATIO 

PEFD 

ARG 


POLYTROPIC EFFICIENCY 

EF 

ARG 


ADIABATIC EFFICIENCY 

FA 

ARG 


F/A RATIO 


QZ********************************************* **************** ********* 

C 

C THIS ROUTINE CONVERTS ADIABATIC TO POLYTROPIC 
C EFFICIENCIES. A (+) DESIGNATES ADIABATIC AND A 
C (-) DESIGNATES POLYTROPIC. 

SUBROUTINE EFFD (T I , PRt PEFD, EF, FA) 

IF IPR.EQ.l.) RETURN 
GA=STHERM(5,TI,FA) 

IF (PR.LE.O.) GO TO 10 

IF (PEFD.GE.O. ) PEFD=ALOG (PR**( (GA-1. ) /GA) ) /ALOGC 1 . + ( PR** ( (GA-1. )/ 
IGA )—!.)/ PEFD ) 

IF (PEFD.LE.O.) PEFD=-PEFD 

EF={ PR**< (GA-1. )/GAJ-l. ) / ( PR**( < GA-1 . ) /GA/PEFD)-!. ) 
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10 


GO TO 20 
PR=-1./PR 

IF ( P EFD .GE .0 • ) PEFD=ALOG< 1.- PEFD* ( l.-PR**« (GA-1. )/GA) ) )/ ALOG ( PR** 
HCGA-l. J/GA) J 
IF (PEFD.LE.O.) P EFO=— PEFD 

EF=(1 .-PR**(PEFD/GA*{ GA-1. ) ))/( l.-PR**( (GA-1. ) /GA) ) 

20 PE FD=-PEFD 
RETURN 
END 
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SUBRGUTINE(FRAME) 


PURPOSE 

THIS ROUTINE CALCULATES THE WEIGHT OF FRONT, 
INTERMEDIATE ,PPIMARY BURNER FRAMES AND TURBINE 
EXIT FRAMES. 

CALLING ROUTINES 


REQUIREO SUBROUTINES 


MODIFICATION HISTORY 


DATE ID ANALYST DISCRIPTIGN 


AUTHOR /LANGUAGE/DATE 


E. ONAT , p. J. PERA/FGRTRAN IV/ 09 30 76 


GLOSSARY 


NAME 

ORIGIN 

USAGE 

DISCRIPTI ON 

RT 

ARG 

I 

TIP RADIUS 

NTYPE 

ARG 

I 

TYPE OF FRAME 

WT 

ARG 

0 

WEIGHT 

IP 

ARG 

0 

PRINT INDICATOR 

RT2 


L 

TIP RADIUS SQUARED 


SUBROUTINE FRAME ( RT, NTYPE , WT , I P) 

REAL *8DATINP ,DATOUT, WTF , TOP RES, TOTEMP , FAR ,CORF LO , VMACH, ST ATP , ERRO 
IR,TOL,TCLT,TOLTT,DEPV,DTOL,PERPF 

* COMMON BLOCKS * 

COMMON /DBL/ DATINP (15,60), DA TOUT (9, 60), WTF (40) , TOPRESt 40 ) , TOTEMP ( 
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140 ),FAR(40)» C0RFL0( 40 ), VMACH( 40 ) , STATP ( 40 ) , ERROR ( 40 ) , TOL , TOLT , TOLT 
2T,DEPV< 20) ,DT0L<20) ,PERPF(20> 

COMMCN /SNGL/ JM1,JM2,JP1 , JP 2 , JCX , LQC TB L( 9 ,60 ) ,JC0MP(70) , I WAY, NIT, 
1ITA8(70) , JCONF (60,4), JTYPE (60 ) , J FLOW (70),IDEDAP(15)»KKINDS(14, 25 ) , 
2NC0MP,N0STAT, NITER, NFINIS, NPASS, JCC ,NTBL, NCTS , JCI ND ( 20 ) ,JCDEP(20) , 
3JCVIND(20) , JCVDEP ( 20 J ,KDTYP(20 ) , I DONE (60) 

COMMON / WMECH/ IWMEC(7,60) ,WATE(60) »ALENG(60) ,TLE NG (40 ) , R I (2 ,40 ) , R 
10( 2,40 ),DESVAL(15,60),DSHAF(5),RPMT(6Q),IWT,IPLT,IERR,ISII , I SI 0,10 
2UTC0 , NSTAG ( 60 ) 

COMMON /CONVER/ C0NVER(15) 

COMMON /DEFAUL/ DEF AUL ( 15 , 20 ) 

LOGICAL I WT , I PLT , I ERR ,ISII,ISIO 
C THIS ROUTINE CALCULATES FRAME WEIGHT 
C NTYP E= THE TYPE OF FRAME 

C 1 IS FOP SINGLE BEARING FRAME FOR TF OR TJ W/0 PT 

C 2 IS FOR SINGLE BEARING FRAME FOR SINGLE SPOOL TJ 

C 3 IS FOR TURBINE EXIT FRAMES 

C 4 IS FOR INTERMEDIATE FRAMES 

C 

RT2=(RT/12.)**2 
GO TO (10,20,30,40) ,NTYPE 
C TYPE 1 FRAME - TJ/TF W/0 PTO 
10 WT=34.48*RT2 

IF (RT2.GT.2.9) WT=47.869*RT2-38.82 
GO TO 50 

C TYPE 2 FRAME -TJ W PTO 
20 WT=104.1*RT2 

IF (RT2.GT.1.95) WT=40«99*RT2+123 .1 
GO TO 50 

C TYPE 3 FRAME - TURB EX 
30 WT=130.77*RT2 

IF (RT2.GT.2.1) WT=4S . 71*RT2+ 167. 61 
GO TO 50 

C TYPE 4 FRAME - INTERM W PTO $ TWO BEARINGS 
40 WT=130.77*PT2 

IF (RT2.GT.5.8) WT=29.02*RT2+567.68 
50 IF (IP.NE.2) RETURN 

WTT=WT 

IF < I SI 0 ) WTT=WTT*CCNVEP(3) 

WRITE (10,60) WTT 
RETURN 
C 

60 FORMAT (/,12H FRAME WT =,F8.2,//) 

END 
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C*^*********#*****#*****#*******************!^********** *************** 
SUBROUTI NE { STRESS ) 

PURPOSE 

THIS ROUTT NE CALCULATES BLADE ROOT STRESS FOR 
THE COMPRESSORS AND THE TURBINES * 

CALLING ROUTINES 


REQUIRED SUBROUTINES 


MODIFICATION HISTORY 


DATE ID ANALYST DISCRETION 


AUTHOR /LANGUAGE/DATE 

E. ONAT , R. J. PERA/FORTRAN IV/ 09 30 76 


GLOSSARY 


NAME ORIGIN USAGE DISCRETION 


RT 

ARG 

T I 

ARG 

TS 

ARG 

HTR 

ARG 

RPM 

ARG 

ST 

ARG 

TR 

ARG 

NC 

ARG 

IP 

ARG 

RHO 

ARG 

TMET 

ARG 

R 


A 


VAR 



D 

W 

F 

XKT 


TIP RADIUS 
TEMPERATURE IN 
TIP SPEED 
HUB-TIP RATIO 
RPM 

BLADE ROOT STRESS 
BLADE TAPER RATIO 
COMPONENT INDICATOR 
PRINT INDICATOR 
BLADE DENSITY 
METAL CHANGE TEMP 
HUB-TIP RATIO FOR S 
BASE AREA 

CORRECTION FACTOR FOR LOCATION 
CORRECTION FACTOR FOR TAPER RATIO 
WEIGHT PER UNIT AREA 
PULL FORCE 
SCALER ON STRESS 
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C 

(J 4:;$:*:$: $:$: ####:$::$: :fc £ 3$: a}: £ ;£#:{£ 5(t#j£# £## &##!(£&##&:£ 4s #35=#*## 

c 

SUBROUTINE STRESS ( RT ,T I , TS , HTR ,R PM, ST, TP , NC , I P ,RHO ,TMET) 

REAL *8DATINP,DATOUT, WTF,TOPRES, TOTEM P, FAR, CORFLO,VMACH, ST ATP, ERRO 
1R, TOL, TOLT ,TOLTT,DEPV,DTOl,PERPF 

* =£ =£ ^ # # # £ J)t =$: $. & vjc # 3^ 

* COMMON BLOCKS * 

COMMON /DBL/ DAT IN P (15, 60 ) , DA TOUT (9, 60) , WTF ( 40 ) , TOPRE S< 40 ) , TOTEMP < 
140) , FAR (40), COP FLO 140 ) , VMACH( 40 ) , STATP(40 ) , ERROR ( 40 ) , TOL , TOLT,TQLT 
2T»CEPV(20) ,DT0L(20) ,PERPF( 20) 

COMMON /SNGL/ JM1 , J M2 , JP1 , JP2 , JCX, LOCTBL ( 9 ,60 ) , JCGMP( 70 ) » I WAY, NIT, 
1ITAB( 70) , JCONF( 60,4) ,JTYPE(60) , JF LOW( 70 ) , I DEDAP < 1 5 ) ,KKINDS ( 14 ,25 ) , 
2NC0MP ,NOSTAT, NITER, NF INIS, NPASS , JCC , NTBL ,NCTS , JC IND ( 20) ,JCDEP(20) , 
3JC VINDt 20) , JCVDEPI20) ,KDTYP(20) ,IDONE(60) 

COMMON /WMECH/ IWMEC( 7,60) , WATE( 60 ) ,ALENG(60) ,TLENG(40) ,RI ( 2 ,40) ,R 
10(2,40) ,DESVAL( 15, 60) , DSHAFt 5 ) , RPMT ( 60) , I WT, IPLT, I ERR , I SI I , I SIO , 10 
2UTCD,NSTAG( 60) 

COMMON /CONVER/ C0NVER(15) 

COMMON /DEFAUL/ DEFAULC 15, 20 ) 

LOGICAL ISIO 
C THIS ROUTINE CALCULATES THE CENTRIFUGAL ROOT 
C STRESS FOR THE FIRST BLADE OF EACH COMPONENT 
IF (TS.EQ.O.) TS=2. *3. 1416/60. *RPM*RT 
PCBH=0. 

XKT=1. 

IF ( TMET.EQ.O. ) TMET=1160. 

IF (RHO.NE.O. ) GO TO 10 
DE N=» 168 

IF (Tl.GT.TMET) DEN=.286 
GO TO 20 
10 DE N=RHO 

20 R=(1.-PCBH/100.)*HTR+PCBH/100. 

A=1.+<TR-1. )*<(1.-P)/(1.-HTR))**2 

VAR=( l.-R)**3/( l.-HTR)**2 

D= ( 1 •— R**2 ) / 2 . +( TR— 1* )/12.*VAR*(l.+3.*R) 

W=DEN* ( l.-R+CTR— 1.) /3 .*VAR)*RT*12 . 

F=DEN/386.*(TS*12. )**2*D 

ST =F/A*XKT 

RHG=DEN 

IF (IP.NE.2) RETURN 
WRITE (10,40) 

IF (ISIO) GO TO 30 

WRITE (10,50) TS,ST ,DEN, W, TR, HTR 

RETURN 

30 ST S=TS*CGNVER( 2 ) 

S$T=ST*CCNVER(6) 

DEN=DEN*CONVER ( 5 ) 

W=W*C0NVER(7) 

WRITE (10,50) STS,SST »DEN,W»TR,HTR 
RETURN 
C 

40 FORMAT (45H U TIP STRESS DEN W/AREA TR H/T) 

50 FORMAT { 2F8 . 1 , 4F 8 .3 , / 1 
END 
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SUBROUTINE! SHAFT ) 


PURPOSE 


THIS ROUTINE CALCULATES THE WEIGHT OF THE SHAFTS 


CALLING ROUTINES 


REQUIRED SUBROUTINES 


MODIFICATION HISTORY 


DATE ID ANALYST DISCRIPTIGN 


AUTHOR /LANGUAGE/DATE 

E. ONAT , R. J. PERA/FORTRAN IV/ 09 30 76 
GLOSSARY 


NAME 

ORIGIN 

USAGE 

DISCRIPTION 

ICCMp 

ARG 

I/O 

COMPONENT NUMBER 

POWER 



HORSEPOWER 

NT 



TURBINE COUNTER 

NTURB 



TURBINE NUMBER FOR POWER SUMMATION 

NCOM 



COMPERSSOR NUMBER FOR LENGTH 

TLEN 



SHAFT LENGTH 

TRPM 



TURBINE RPM 

CR PM 



COMPRESSOR RPM 

SPEED 



MIN. RPM 

STRE 



REF. STRESS 

RHG 



MATERIAL DENSITY 

R 



HUB-TIP RATIO 

I LCC 



LOCATION INDICATOR 

DOB 



OUTER DIA. CUBED 

DO 



OUTER DIAMETER 

D I 



INNER DIAMETER 

COA 



GUESS ON DO 

DELD 



DELTA ON DO 

WT 



WEIGHT 
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c DN DN NUMBER OF BEARING 

C 

C 

c 

SUBROUTINE SHAFT (ICOMP) 

REAL *8DATINP,DAT0UT, WTF t TOPRES,TOTEMP , FAR, CORF LO , VMACH , STATP , ERRO 
1R,TCL,TCLT,T0LTT,DEPV,DT0L,PERPF 
C 

C ***************** 

C * COMMON BLOCKS * 

C ’fcifc*##*:**::********* 

c 

COMMON /OBL/ DATI NP ( 15 ,60) , DATOUT ( 9 ,60 ) , WTF{40 ) , TOPRES( 40 J ,TOTEMP ( 
140) ,FAR(40),CGRFLG(40),VMACH<40) , STATP (40) ,ERR0R(40) ,TOL,TOLT ,TOLT 
2T, DEPV( 20 ) , DTCL (20 ) ,PERPF(20) 

COMMON /SNGL/ JM1 , JM2 , JP1 T JP2 , JCX T L0CTBL(9,60) , JCOMP { 70 ) , IWAY ,N IT , 
1ITAB(70) ,JCONF(60,4), JTYPE(60) ,JFL0W(70),IDEDAP(15) ,KKINDS< 14,25) , 
2NC0MP ,NOSTAT, NITER, NF INI S, NPASS , JCC ,NTBL , NCTS , JCIND (20) ,JCDEP(2Q) , 
3JCVIND(20),JCVDEP<20) ,KDTYP( 20 ) , IDONE ( 60) 

COMMON /WMECH/ I WMEC( 7 ,60 ) , WATE ( 60 ) , ALENG (60 ) , TLENGC40) , R I { 2 ,40 » , R 
10< 2,40) ,DESVAL( 15,60) ,DSHAF{ 5) ,RPMT(60) , I WT, I PLT, IE RR ,1 S 1 1 , IS 10 , 1 0 
2UTCD , NSTAG (60 ) 

COMMON /CONVER/ CONVER( 15) 

COMMON /OEFAUL/ DEFAULC 15, 20 ) 

LOGICAL IWT,IPLT,IERR»ISII,ISIO 

IF ( IOUTCD.GT.l) WRITE (10,120) IWMEC ( l , I COMP) , ICOMP, I OUT CD 
C 

C DETERMINE TOTAL SHAFT POWER 
C 

P0WEP=0. 

NT=3 

10 NTURB=IWMEC(NT, ICOMP) 

POWER=DATOUT( 1,NTURB)+P0WER 
NT =NT + 1 

IF (NT.EQ.6) GO TO 20 
IF (IWMEC(NT, ICOMP) .NE.O.) GO TO 10 
20 NCCM=I WMEC (7 , 1 COMP ) 

C 

C DETERMINE SHAFT LENGTH AND MIN. SPEED 
C 

NTF=JCCNF( NTURB , 1) 

NCR=JCONF(NCOM,3 ) 

TLEN=TLENG(NTF)-TLENG(NCR) 

TRPM=RPMT (NTURB) 

CRPM=FPMT (NCOM) 

SPEED=AMIN1(TRPM,CRPM) 

C 

C INPUT DESIGN DATA 
C 

IF (DESVALd, ICOMP). EQ.O.) GO TO 30 
STRE=DESVAL(1, ICOMP) 

RHC=DESVAL(2, ICOMP) 

R=DESVAL(3, ICOMP) 

GO TO 40 

30 STRE-DEF AUL ( 1 , 14 ) 
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RHC=DEFAUL(2,14) 

R=DEFAUL( 3 » 14) 

40 IF ( .NOT • IS 1 1 ) GO TO 50 
STRE=STRE/C0NVER(6) 

RH0=R HO/CONVER ( 5 ) 

50 ILCC=IWMEC(2, ICOMP) 

C 

C DETERMINE SHAFT LOCATION 1 IS INNER SHAFT 
C 

IF (ILOC.NE.l) GO TO 60 

D03=454048.43*P0WER/(SPEED*STRE*( l.-R**4) ) 
DQ=D03**(l./3.) 

DI=DO*R 
GO TO 90 
C 

C CALCULATION FOR OUTER SHAFTS 
C 

C ***********55 r********* 

C NEWTON-RAPHSON I NTERATION FOR SHAFT OUTER DIAMETER 
C ***************** 

60 DI =DS HAF ( ILOC— 1 ) + .4 

DNEW=DI 
B=-oi**4 

A=-454048.*P0WER/ST RE/SPEED 

DO 70 1=1,50 

A1=DNEW**4+A*DNEW+B 

A2=4.*DNEW**3+A 

DOLD=DNEW 

DNEW=D0LD-A1/A2 

IF { ABS ( ONEW-DGLD J . LE .. 01 ) GO TO 80 
DNEW=AMAX1(DI,AMIN1(100.,DNEW) J 
70 CONTINUE 

WRITE (10,130) ICOMP 
DNEW=5 • 

80 DO=DNE W 

90 DS HAF ( ILOC )=D0 

DN=D0*SP£ED J f=2 5.4/100O000 • 
WT=.7853981*RH0*TLEN*(D0**2-DI**2) 

WATE( ICCMP )=WT 
C 

C WRITE OUTPUT 
C 

IF ( I0UTCD.NE.2) RETURN 
WRITE (10,140) ICOMP 
IF (ISIC) GO TO 100 
WRITE (10,150) D0,DI» TLEN, DN, WT 
IF (DN.GT.2.) WRITE (10,170) DN 
GO TO 110 

100 C0=00*CCNVER< 1 ) 

DI=DI*CCNVEP( 1) 

TLEN=TLEN*C0NVER(1) 

WT=WT*CCNVER(3) 

WRITE (10,160) DO,DI,TLEN,DN,WT 
110 CONTINUE 
RETURN 


& ®B»DUCIBIUTt OF THE 
nMfJIMAi, PAGE IS POOS 
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*/4H * t A4,I3,3H * 


120 FORMAT ( 1H /14H *************/14H * 

1/14H * */ 13 H ************* 1 1) 

130 FORMAT ( 15H ERROR IN SHAFT,I4) 

140 FORMAT (6H SHAFT , 14 ,/ ,34H DO DI LENG DN WT) 

150 FORMAT (5F7.2,//) 

160 FORMAT ( 3 F7 . 1 , 2F7. 1 , / / ) 

170 FORMAT (15HTHE DN VALUE 0F»F4 .2, 15HMILLI0N IS HIGH) 

END 
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SUBRCUTINE(TURB') 
PURPOSE 


this routine performs the turbine performance 

CALCULATIONS AND THE BOOKKEEPING FOR THE 
MECHANICAL DESIGN. 

CALLING ROUTINES 


REQUIRED SUBROUTINES 


EFFD 

TMECH 

DUCT 

MODIFICATION HISTORY 


OATE ID ANALYST DISCRETION 


AUTHOR /LA NGUAGE/DATE 


E. ONAT , R. J. PERA/FORTRAN IV/ 09 30 76 


GLOSSARY 


NAME 

ORIGIN 

USAGE 

DISCRETION 

ICOMP 

ARG 


COMPONENT NUMBER 

IP 



PRINT INDICATOR 

NTT 



COMPONENT NUMBER 

NODEIS 



BLEED MODE IN 

NODE I 



NODE IN 

NODEO 



NODE OUT 

WI 



AIRFLOW IN 

TI 



TEMPERATURE IN 

PI 



PRESSURE IN 

ITURB 



TURBINE INDICATOR 

NT 



TURBINE INDICATOR 

FA I 



FUEL AIR RATIO IN 

EP1 



EFFICIENCY 

IDES 



DATA INDICATOR 

CFT 



COOLING FLOW 

TC 



TEMPERATURE OF THE COOLING FLOW 

CFF 



COOLING FLOW TO THE FRONT OF TURBINE 
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C CFR 
C AT 
C TLD 
C NR PM 
C RPM 
C RCC 
C I D I 
C NODRCC 
C CW 
C HC 
C HI 
C FAI 
C WI 
C WHP 
C DhA 
C H3 
C RP1 
C CHI 
C H2 
C T2 
C RP2 
C PR 
C PR1 
C EF2T 
C TR 
C H4 
C FAO 
C TO 
C PO 
C WO 
C 6A 
C GAC 
C VI 
C VCR 
C HST 
C TST 
C PRST 
C PST 
C ATI 
C EFS 
C ATD 
C XME 
C XMS 
C 


COOLING FLOW TO THE BACK OF. THE TURBINE 
MACH NUMBER 

TURBINE LOADING PARAMETER 

RPM LOCATOR 

RPM 

CONTROL RADIUS 

COMPRESSOR NUMBER FOR RCC 

NODE FOR CONTROL RADIUS 

CORRECTED WEIGHT FLOW 

ENTHALPY OF COCLING GAS 

ENTHALPY OF INLET AIR 

FUEL AIR RATIO 

AIRFLOW INTO THE COMPONENT 

HORSE POWER 

ACTUAL DELTA ENTHALPY 

ENTHALPY OUT 

RELATIVE PRESSURE IN 

IDEAL ENTHALPY 

IDEAL ENTHALPY OUT 

IDEAL TEMPERATURE OUT 

RELATIVE PRESSURE OUT 

PRESSURE RATIO 

PRESSURE RATIO 

EFFICIENCY 

TEMPERATURE RATIO 

EXIT ENTHALPY 

FUEL AIR RATIO OUT 

TEMPERATURE OUT 

PRESSURE OUT 

AIRFLOW OUT 

GAMMA 

GAS CONSTANT - R 
VELOCITY 

CRITICAL VELOCITY 
STATIC ENTHALPY 
STATIC TEMPERATURE 
STATIC RELATIVE PRESSURE 
STATIC PRESSURE 
EXIT AREA 

POLYTROPIC EFFICIENCY 
MACH NUMBER IN OR EXIT AREA 
MACH NUMBER OUT 
MACH NUMBER IN 


C 

£*£#$#**£* *£**#*❖***$ fc****#**#**#*##**##*#*#*#*####^*** Jfc*#*#*** 

C 

SUBROUTINE TURB (ICCMP) 

REAL *8DATINP,DATOUT, WTF ,TOPRES ,TOTEMP T FAP,CORFLO,VMACH,STATP , ERRO 
1R,TOL,TOLT,TOLTT,DEPV,DTOL,PERPF 


***************** 
* COMMON BLOCKS * 
** ******* * *** * * * * 


COMMON /DBL/ DAT IN P ( 15»60 ) » DATOUT ( 9»60) ,WTF(40) ,T0PRES(40) t TOTEMP( 
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140),FAR(40),C0RFL0(40),VMACH(40) ,STATP(40) ,ERR0R(40) ,TOL, TOLT ,T0LT 
2T,DEPV(20) ,DT0L(20) ,PERPF(20) 

COMMON /SNGL/ JM1,JN2,JP1 1 JP2 , JCX, L0CTBK9 ,60) ,JC0MP(70) , IWAY,NIT, 
1ITAB( 70) ,JC0NF(60»4),JTYPE(60),JFL0W(70), I DEO A P ( 15 ) ,KKINDS( 14,25) , 
2NCOMP,N0STAT,NITER,NFINIS,NPA$S,JCC,NTBL,NCTS,JCIND(20) ,JCDEP(20) , 
3JCVIND(20)»JCVDEP(20) ,KDTYP( 20) , ID0NE(60) 

COMMON / WMECH/ I WMECI 7,60 ) , WATE (60 ) , ALENG( 60 ) , TLENG (40) ,R I ( 2, 40 ) , R 
10( 2,40) ,DESVAL( 15,60) ,DSHAF( 5) , RPMT( 60) , I WT, I PLT, IERR ,1 SI I , IS 10, 10 
2UTCD, NSTAG (60 ) 

COMMON /CONVER/ C0NVER(15) 

COMMON /DEFAUL/ DEFAULt 15, 20) 

LOGICAL I WT , I PLT ,IERR»ISII,ISIG 

$ # # # * % if $ # # v ## s}: # ## 

* DATA STATEMENTS * 

jjt 3$: # s}c j(c # # # 3}: sjc jf: * 5$: =$: 

DATA TSTD,PSTD,C1,FA,G,R/518.67,2116.22 ,778. ,0. ,32.174,53.34/ 

DATA LLPT/4HLPT / 

CHECK FOR BAD INLET TEMPERATURE. CALCULATE CORRECTED INLET FLOW 
<CW), CCGLING FLOW ENTHALPY (HC) AND INLET ENTHALPY (HI) 

IF ( IQUTCD.GT .1 ) WRITE (10,70) IWMEC ( 1, ICOMP) , ICOMP , IOUTCD 
IP=I OUTCD 
NTT=ICGMP 

NO DEI S=JCONF( NTT,2 ) 

NODE I=JCONF ( NTT , 1 ) 

NODEO-JCCNF( NTT , 3 ) 

WI =WTF ( NODEI ) 

TI=TCTEMP(NODEI ) 

PI I=TGPRES(NODEI ) 

P I=P 1 1*144. 

ITURB=8 
NT =5 

IF (IWMECtl, NTT ).EQ.LLPT) ITURB=9 
IF (I WMEC(1,NTT).EQ.LLPT) NT=7 
FAI=FAR ( NODEI ) 

EF1=DATCUT (8, NTT ) 

IDES= 1 

IF (DESVAHl, NTT ) . EQ. 0. ) IDES=2 
CFT=0. 

TC-0 . 

IF (NODEIS.NE.O) TC=TGTEMP (NODEIS ) 

IF (NODEIS.NE.O) CFT^WTF (NODEIS) 

CFF=CFT*DATINP(2,NTT)*DATINP( 9, NTT) 
CFR=CFT*DATINP(2,NTT)*(1.-DATINP(9,NTT) ) 

GO TO ( 10,20) , IDES 
10 AT =DESVAL ( 1 , NTT ) 

TLP=DESVAL ( 2, NTT) 

GO TO 30 

20 AT=DEFAUL(1,ITURB) 

TLP=DEFAUL( 2, ITURB ) 

30 NRPM=I WMEC(3 , NTT) 

RPM=PPMT(NRPM) 

RPMT ( NTT )=RPM 
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IDI=IWMEC(4» NTT } 

IPCS-3 

IF (IDI.LT.O) IP0S=1 

NODRCC=NCDEI 

IDI-IABS(IDI) 

IF (IDI.NE.O) NODRCC=JCONF( IDI, IPOS) 

IF ( I POS . EQ.3 J RCC=RO (2 , NGDRCC ) /12 . 

IF (IPOS.EQ.l) RCC=RO(l,NODRCC) /12. 

IF (DESVALdO, NTT ) • NE .0 • ) RCC=DESVAL ( 10 ,NTT)/ 12. 

IF (DESVALdO, NTT) .NE.O. .AND. I S I I ) RCC=RCC/CONV E R (1 J 
IF (TI.LT.200.) TI=200. 

IF (TI.GT.6000.) TI =6000. 

CW=WI*SQRT(TI/TSTD)/PI*PSTD 
HC =0. 

IF (NODEIS.NE .0) HC=STHERM(4»TC »FA) 

HI =ST HERM(4,TI,FAI) 

Hl=(Hl*WI+HC*CFF)/< WI+CFF) 

FA I=FA I#W 1/ ( W I+CFF) 

WI =WI +CFF 

TI=STHERM(i,Hl,FAI ) 

INITIALIZE EFFICIENCY ( EF ) AND CALCULATE ACTUAL WORK (WHP), ENTHALPY 
CHANGE ACROSS TURBINE { DHA) , EXIT ENTHALPY (H3) AND EXIT PRESSURE 
RATIC (RP1) 

EF=ABS{EF1) 

WhP=DATCUT (1 , NTT) 

DHA=WHP* . 7068 /WI 

IF (DHA. LE.. 0001) DHA=.0001 

H3=H 1-DHA 

RP1=STHERM(2,TI,FAI ) 

BEGIN EFFICIENCY ITERATION. CALCULATE IDEAL ENTHALPY (DHI ) CHANGE 
ACROSS COMPONENT, IDEAL EXIT ENTHALPY (H2) AND TOTAL PRESSURE 
RATIO ( RP 2 ) 


K=0 
K= K+ 1 

DH I=DHA/EF 
H2=H1-DHI 

T2=STHERM(1,H2,FAI) 

RP2=STHERM(2,T2»FAI ) 

CALCULATE PRESSURE PATIO (PR) ACROSS COMPONENT AND EFFICIENCY (EF) 

PR =RP 1/RP2 
PR 1=-PR 
EF 2T=EF 

CALL EFFD (TI,PR1,EF1,EF,FAI) 

CHECK FC-R CONVERGENCE OF ITERATION 

IF (ABS( (EF2T-EFI/EF) .LE..0001) GO TO 50 
IF (K.GT.10) GO TO 50 
GO TO 40 

50 IF (K.GT.10) WRITE (10,80) NT 
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CALCULATE EXIT TOTAL TEMPERATURE (T3) AND TEMPERATURE RATIO (TR) 

T3=STHERM(1,H3,FAI ) 

TR=T I/T3 

CALCULATE EXIT ENTHALPY <H4), FUEL-TO-AIR RATIO ( FAO) AND TOTAL 
TEMPERATURE IT4J AFTER ADDITION OF COOLING FLOW 

H4=(H3*WI+HC*CFR)/( WI+CFR) 

FAC=FAR(NODEO) 

TO=STHERM( 1,H4,FA0) 

CALCULATE INLET AREA (AT - DESIGN) OR MACH NUMBER ( XM - OFF-DESIGN) , 
AND ACTUAL PRESSURE LOSS (DP2) AND INLET DUCT EXIT TOTAL PRESSURE 
(PCI) 

CALL DUCT (TI ,PI,WI ,AT,FAI , XM , PS,DQ , I SI 0, 1 P) 

CALCULATE EXIT TOTAL PRESSURE (PO), FLOW (WO), VELOCITY (VI) AND 
INLET CRITICAL SONIC VELOCITY (VCR) 

PO=PI/PR 
WG=W I+CFR 

GA=STHERM(5,TI,FAI) 

GAC=STHERM (6 » FAI , FA I ) 

V1=$QRT(2.*G*C1*DHA) 

VCR=SQRT ( (G*GA*GAC*TI ) /( ( I.+GA)/2. ) ) 

IF (Vl.LT.VCR) VCR=V1 

CALCULATE STATIC ENTHALPY (HST), TEMPERATURE (TST), PRESSURE (PST) 

AND EXIT NOZZLE AREA (ATI) 

HST=H1-VCR/2.*VCR/G/CI 

TST=STHERM(1,HST,FAI) 

RPST=STHERM(2,TST, FAI ) 

PST=PI/RPI*RPST 

AT1=WI/PST*R/VCR*TST 

CALCULATE COMPONENT MECHANICAL DESIGN AND DIMENSIONS 

EFS=EFI 
XM S=XM 

CALL TMECF (IP, IDES ,NT, HI , DHA ,DHI , RPM , WI , TI , P I , FAI ,RCC , WHP ,TLP , I TU 
1RB ,EF S » XMS ,XME , AT,F ACL, WT , TL , NTT) 

AT C=XME 

CALCULATE TURBINE EXIT AREA ( ATD - DESIGN) GR MACH NUMBER (XME - 
OFF-DESIGN), DYNAMIC PRESSURE ( QTEX) , REYNOLDS NUMBER (RENTEX) 

AND PRESSURE LOSS (DP2) 

CALL DUCT (TO, PG, WO, ATD, FAO, XME, PS, QTEX, ISIO, IP) 

WRITE TURBINE PERFORMANCE DATA 

IF ( IP.NE.2) RETURN 
IF (ISIO) GO TO 60 
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WRITE (10,90) 

WRITE (10,100) PR,TR,FF»P0,T3,T0 
WRITE (10,110) 

WRITE (10,120) H1,H3,AT1,WI,WHP 
WRITE (10,130) WA TE ( I COMP ) 

RETURN 

60 WRITE (10,90) 

SPO=PO*CONVER( 11) 

ST3=T3*CCNVER(8) 

STO=TC*CGNVER( 8) 

SH1=H1*CGNVER<9) 

SH3=H3*C0NVER ( 9 ) 

SAT1=AT1*C0NVER(4) 

SWI=W I*CGNVER (3 ) 

SWHP=WHP*CONVER( 10) 

WT 1=WATE( ICOMP ) #CONVER( 3) 

WRITE (10,100) PR,TR,EP,SP0,ST3,ST0 
WRITE (10,110) 

WRITE (10,120) SHI , SH3 , SAT1 , S WI , SWHP 
WRITE (10,130) WT1 
RETURN 
C 

70 FORMAT ( 1H /14H ************* /14H * */4H * ,A4,I3,3H * 

l/l^H * */13H ************, 1 1) 

80 FORMAT ( 8H TURBINE, 13 ,37H EFFICIENCY ITERATIONS EXCEED MAXIMUM) 

90 FORMAT (46H PR TR AD EF PO TO TO.l) 

100 FORMAT ( 3F 8. 4 ,3F8. 1 ) 

110 FORMAT ( 37H H IN H OUT AREA FLOW HP) 

120 FORMAT (4F8.2 ,F8.0, F8 .4,// ) 

130 FORMAT (/,41H ******************* TOTAL TURB WEIGHT IS,F10.3,/) 

END 
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SUBROUTINE(TMECH) 

PURPOSE 

THIS ROUT I N E PERFORMS THE TURBINE MECHANICAL 
DESIGN. 

CALLING ROUTINES 


REQUIRED SUBROUTINES 

STRESS 
DUCT1 
EFFD 
TUR WT 

MODIFICATION HISTORY 


DATE ID ANALYST DISCRETION 


AUTHOR /LANGUAGE/DATE 

E. ONAT T R. J. PERA/FORTRAN IV/ 09 30 76 


GLOSSARY 


NAME 

ORIGIN 

USAGE 

DISCRETION 

IP 

ARG 


PRINT INDICATOR 

IDES 

ARG 


DATA LOCATION INDICATOR 

NT 

ARG 


TURBINE TYPE INDICATOR 

HI 

ARG 


ENTHALPY 

CFA 

ARG 


DELTA ENTHALPY 

Dhl 

ARG 


IDEAL DELAT ENTHALPY 

RPM 

ARG 


RPM 

WI 

ARG 


AIRFLOW IN 

TI 

ARG 


TEMPERATURE IN 

PI 

ARG 


PRESSURE IN 

FA 

ARG 


F/A RATIO IN 

RC 

ARG 


CONTROL RADIUS FOR TURBINE 

NS 



NUMBER OF STAGES 

HT 



HUB-TIP RATIO 

ST 



STRESS 

WHP 

ARG 


HORSEPOWER 

RT 



TIP RADIUS 
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c 

TLP ARG 

TURBINE LOADING PARAMETER 

c 

ITURB ARG 

TURBINE INDICATOR 

c 

PEF ARG 

POLYTROPIC EFFICIENY 

c 

XM 

MACH IN 

c 

XME 

MACH OUT 

c 

AIN ARG 

AREA IN 

c 

NTT ARG 

COMPONENT NUMBER 

c 

GR 

GEAR RATIO 

c 

G8WT 

GEAR BOX WEIGHT 

c 

OM 

OMEGA 

c 

UTM 

MAX. TIP SPEED 

c 

UT 

TIP SPEED 

c 

RH 

HUB RADIUS 

c 

A 

AREA IN 

c 

DIAM 

TIP DIAMETER 

c 

TR 

BLADE TAPER RATIO 

c 

TGRQ 

TORQUE 

c 

NODEI 

NODE IN 

c 

NGDEO 

NODE OUT 

c 

RT IN 

TIP RADIUS - IN 

c 

RFIN 

HUB RADIUS - IN 

c 

SOLC 

SOLIDITY 

c 

ARIC 

TURBINE ASPECT RATIO IN 

c 

ARCC 

TURBINE ASPECT RATIO OUT 

c 

CIMN 

MACH INTO TURBINE 

c 

CCMN 

MACH OUT OF TURBINE 

c 

STR 

REF. STRESS FOR DISK 

c 

COCK 

COOLING FLOW 

c 

MODE 

DESIGN MODE FOR TURBINE 

c 

RPMR 

RPM RATIO - NMAX/NDES 

c 

DELMS 

MACH IN - MACH OUT 

c 

DELAR 

ASPECT RATIO IN - ASPECT RATIO 

c 

WT 

STAGE WEIGHT 

c 

TL 

STAGE LENGTH 

c 

PCS 

PRESSURE IN OR OUT 

c 

EF 

EFFECIENCY 

c 

TTOS 

TEMPERATURE IN OR OUT 

c 

HCS 

ENTHALPY IN OR OUT 

c 

XMCS 

MACH INTO STAGE 

c 

AR 

ASPECT PATIO OF STAGE 

c 

R T B 

TIP RADIUS OF BLADE 

c 

RM 

MEAN RADIUS OF BLADE 

c 

RHB 

HUB RADIUS OF BLADE 

c 

PHBA 

HUB RADIUS - IN. 

c 

GAO 

GAMMA 

c 

HIS 

ENTHALPY INTO STAGE 

c 

TT IS 

TEMPERATURE INTO STAGE 

c 

PIS 

PRESSURE INTO STAGE 

c 

cw 

CORRECTED AIRFLOW 

c 

RTBA 

TIP RADIUS - IN. 

c 

UTP 1 

TIP SPEED OF BLADE 

c 

BP 

BLADE HEIGHT 

c 

WTFRA 

FRAME WEIGHT 


c 

c 

£+****##** A#*#:***#*******:******###*#*##****#*###*** #**#***#*#** #**£**### 
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SUBROUTINE TMECH ( I P , IDE S f NT ,H1 ,DHA,DHI ,RPM,WI »TI , P I , FA ,RC ,WHP ,TL P 
1, ITURB,PEF,XM,XME,AIN,FACL,WT,TL,NTT) 

REAL *8DATINP,DATOUT,WTF,TOPRES,TOTEMP,FAR,CORFLO,VMACH,STATP,ERRO 
1R,T0L,T0LT,T0LTT,DEPV,DT0L,PERPF 

* COMMON BLOCKS * 

** * * * # * *** *■* ** * * * 

COMMON /DBL/ DAT INP (15,60) , DA TOUT! 9, 60) ,WTF(40) , T0PRES( 40 ) ,T0TEMP ( 
140), FAR (40) ,C0RFL0(40 ) , VM ACH(40 ) ,STAT P ( 40 ) , ERROR ( 40 ) , TOL, TOLT , TOLT 
2T , DEP V( 20) ,DT0L( 20) ,PERPF(20) 

COMMGN /SNGL/ JM1 , J M2 , J PI , JP2 , JCX, LOCTBL( 9 ,60 ) , JC0MP(70) , I WAY, NIT, 
1ITAB( 70) ,JCONF(60,4), JTYPE(60) , JFL0W( 70 ) , IDEDAP ( 15 ) ,KKINDS (14,25 ) , 
2NC CMP, NOSTAT, NITER, NF INIS, NP ASS, JCC,NTBL,NCTS,JCIND( 20) ,JCDEP(20) , 
3 JC VI ND ( 20 ) ,JCVDEP( 20) ,KDTYP(20) ,IDONE(60) 

COMMON /WMECH/ IWMEC( 7,60) ,WATE(60) ,ALENG(fcO) ,TLENG(40) ,RI (2 ,40) ,R 
10( 2,40) ,DESVAL (15,60) ,DSHAF( 5 ) , RPMT (60) , IWT, I PLT, I ERR, I SI I , ISIG, 10 
2UTCD, NSTAG( 60) 

CGMMON /CONVER/ C0NVER(15) 

COMMON /DEFAUL/ DEF AUL( 15 , 20 ) 

LOGICAL IWT, I PLT ,IERR»ISII»ISIO 

a}: 

* DATA STATEMENTS * 

afcafc £;(=:$: #5(£afc:£:a af 5$: £ 

DATA T ST D, PS TD, PIE, CC1,G/ 518. 67, 2116. 22, 3. 14159,778., 32 .174/ 
DIMENSION PRR(IO), GR(3), GBWT(3) 

CHECK FCP BAD INPUTS AND CASE TYPE. SET FLAG FOR STAGE-BY-STAGE 
TURBINE DESIGN 


IF ( R PM.EQ.O. ) RETURN 
INITIALIZE TURBINE DESIGN VALUES 


$N=0. 

NNT=NT-4 
RPM2=RPM 

FOR DESIGN CASE: INITIALIZE STAGE DESIGN VALUES 

CM=RPM*2.*PIE/60. 

KK=0 

UTM=RC*OM 

BEGIN ITERATION FOR NUMBER OF STAGES (SN) BASED ON BLADE 
TIP SPEED (UT) 

IF ( IWMEC( 5,NTT).NE.O) SN=I WMEC ( 5 ,NTT ) 

IF (IWMEC(5,NTT).NE.O) GO TO 20 
10 SN=SN+1. 

KK=KK+1 

IF (SN.GT.40.) GO TO 40 
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20 DH1=DHA/SN 

UT=SQRT(TLP*DH1*G*2.*CC1) 

C 

C CHECK FCR CONVERGENCE AND CALCULATE BLADE TIP RADIUS (RT) 

C 

IF (IWMEC(5,NTT).NE.O) GO TO 30 
IF (UT.GT.UTM) GO TG 10 
30 RT=UT /QM 

GO TO 50 
C 

C ERROR IN NUMBER OF STAGES 
C 

40 IF { ISIO) SRC=RC*CONVER( 1) 

IF (ISIC) WRITE (10,200) NT, SRC 
IF (.NOT. ISIO) WRITE (10,200) NT , RC 
PETURN 
C 

C FOR DESIGN CASE: CALCULATE HUB RADIUS (RH), BLADE TIP RADIUS (RT) 

C AND CHECK FCR CONVERGENCE ON NUMBER OF STAGES 
C 

50 A=AIN 

C1=RT*RT-A/PIE 
IF (Cl.LE.O.) Cl=.0001 
RH=SQRT (Cl ) 

RT=SQRT(A/PIE+RH*RH) 

C 

C CALCULATE BLADE TIP DIAMETER (DIAM) IN INCHES, HUB-TO-TIP RATIO (HT), 
C TIP SPEED (UT) AND NUMBER OF STAGES (NS) 

C 

DIAM=RT*24. 
hT =RH/RT 

UT=RT*2.*PIE/60.*RPM2 
NS=IF IX ( SN+. 0 1 ) 

SND=S N 
C 

C INITIALIZE BLADE TAPER RATIO (TR). CALCULATE SHAFT TORQUE (TORQ) 

C AND 1ST BLAOE STRESS (ST) 

C 

TR=1. 

TGRQ=WHP/RPM2*63025. 

RHG=0 . 

IF (DESVAL(11,NTT).NE*0.) RHO=DE$VAL < 1 1, NTT ) 

IF ( I S 1 1 .AND. DESVAL(11,NTT).NE.0.) RHC=RHG/CONVER (5 ) 

RH01=RH0 , 

TM=0. 

CALL STRESS ( RT, TI , UT ,HT,RPM2, ST, TR , NT , IP ,RH01 , TM) 

RTIN=RT*12. 

RHIN=RH*12. 

IF (IP.NE.2) GO TO 70 
C 

C WRITE TURBINE DESIGN VALUES 
C 

WRITE (10,210) NTT 
WRITE (10,220) 

IF (ISIO) GO TO 60 

WRITE (10,230) HT, SN, TLP , A 
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WRITE (10,240) 

WRITE (10,250) UT,PTIN,RHIN,DHA,RPM2,T0RQ 
GO TO 70 

60 SA=A*C0NVER(4) 

WRITE (10,230) HT»SN,TLP,SA 
$RT=RTIN*CGNVER( 1) 

SRH=RHIN*C0NVER(1) 

SUT=UT*CONVER( 2) 

SDFA=DhA*CONVER( 9) 

STORQ=TORQ*CONVER(2 )*C0NVER(3 ) 

WRITE (10,240) 

WRITE (10,250) SUT, SRT ,SDHA,RPM2, STORQ 
C 

C THIS IS THE STAGE-BY-STAGE TURBINE DESIGN SECTION ENCOUNTERED ONLY 
C FOR A DESIGN CASE OR A COPY OF A DESIGN CASE 
C 

C INITIALIZE THE APPROPRIATE DESIGN VALUES 
C 

70 NODE I=JCQNF( NTT, 1 ) 

NODE 0=JC0NF( NTT ,3 ) 

RI(1,N0DEI)=RHIN 
RO (1 , NODE I ) = RT IN 
GO TO (80,90) , I DES 
80 SQLC=DESVAL ( 3, NTT ) 

ARIC=DESVAL(4, NTT ) 

AR0C=DESVAL(5,NTT) 

CIMN=XM 

COMN=DESVAL( 6, NTT) 

STRIDES VAL (7, NTT ) 

COOKED ATI NP( 2 , NTT ) 

M0DE=IFIX(DESVAL(8,NTT)+.01) 

RPMR=DESVAL(9 ,NTT ) 

GO TO 100 

90 SOLC=DEFAUL ( 3 , ITURB ) 

AR3C=DEFAUL(4,ITURB) 

AP0C=DEFAUL(5, ITURB) 

CINN=XM 

COMN=DEFAUL( 6 , ITURB ) 

STR=D£FAUL(7, ITURB) 

COOK=DATINP( 2 ,NTT) 

M0DE=IFIX( DEFAULI8, ITURB) +.01) 

RPMR=DEFAUL(9 , ITURB ) 

100 IF ( .NOT • I SI I ) GO TO 110 
STR=STR/C0NVER(6 ) 

C 

C CALCULATE DELTA MACH NUMBER (DELMNS), ASPECT RATIO (DELAR) AND 
C ENTHALPY (DHAS) PER STAGE AND INITIALIZE VALUES FOR STAGE-BY-STAGE 
C CONSTANT HUB TURBINE DESIGN 
C 

110 D£LMNS=( C IMN-CCMN) 

IF (DELMNS. NE.O.) DEL MNS= DELMNS /SN 
IF (CCMN.EQ.O.) D£LMNS=0 .05 
DELAR =ARIC-AROC 

IF (SN.GT.l.) DELAR=DELAR/(SN-1.) 

IF (AROC.EQ.O..AND.NT.EQ.5) DELAR=0.05 
IF (AR0C.EQ.0..AND.NT.GT.5) DELAR=0.2 
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DHAS=OHA/SN 
WT =0. 

TL = 0 . 

P0S=P I 
EF=-PEF 
TT0S=TI 
FQS=H1 

XMCS=CIMN+DELMNS 
AR=AR IC+DELAR 
XME=C CMN 

IF (XME.EQ.O.) XME=CIMN-(DELMNS*SN) 

CALCULATE CONSTANT HUB RADIUS ( RHB ) - IN INCHES (RHBAi AND 1ST 
STAGE INLET GAMMA { GAO ) 

RTB=RT 

RM=RT*RT-AIN/(2.*PIE) 

IF (RM.LT.O. ) GO TO 190 
RM=SQRT (RM) 

CHECKA=PT*PT-A IN/PIE 
IF (CHECKA.LE .0.) GO TO 190 
RHB=SQRT (CHECKAI 
RHBA=RHB*12. 

GAC=S THERM ( 5, T 1 1 FA ) 

NSTAG (NTT) =NS 
NST=N S + l 

BEGIN STAGE-BY-STAGE TURBINE DESIGN 
DO 160 1=1 1 NST 

INITIALIZE STAGE INLET VALUES 

XMCS=XMCS— DELMNS 

IF (XMCS.LE.O.) GO TO 190 

HI S=HGS 

TTIS=TTOS 

PI S= POS 

AR=AR-DELAR 

CALCULATE STAGE EXIT ENTHALPY (HOS), TOTAL TEMPERATURE (TTOSJt INLET 
GAMMA (GAI), EXIT GAMMA (GAO), AVERAGE GAMMA (GAV) AND TOTAL PRESSURE 
RATIC ( PRR ) ACROSS THE STAGE 

HOS=HIS-DHAS 
TTCS=STHERM(1 »HOS» FA) 

GA I=GAO 

GAO=STHERM ( 5 , TTQS » F A) 

GA V=( GAI+GAO) /2. 

TOS1=ALOG(TTIS/TTOS)/EF 
T0S2 = EXP CTGS1 ) 

PF R{ I )=T0S2** ( GAV/( GAV— 1. ) ) 

CALCULATE STAGE EXIT TOTAL PRESSURE (POS), INLET CORRECTED FLOW (CW) 
AND INLET AREA (Al) 
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PQ$=P IS/PRF ( I ) 

A 1=0. 

CALL 0UCT1 (TTIS,PI$,WI,GAI,XMCS,A1) 

GO TO (120,130,140) ,MQDE 
C 

C CALULATES RHB FOR CONSTANT TIP RAC 
C 

120 R H B = RT- B * R-T- B- A 1-/PIE 

IF (RHB.LE.O.) GO TO 190 
RHB=SQRT (RHB ) 

GO TO 140 
C 

C CALCULATES RHB FOR CONSTANT MEAN 
C 

130 RHB=PM*RM-A1/(2.*PIE) 

IF (RHB.LE.O.) GO TO 190 
RHB=S QRT ( RHB ) 

GO TO 140 
C 

C CALCULATE BLADE TIP RADIUS (RTB), BLADE HEIGHT (BH), NUMBER OF 
C BLADES (NB) AND HUB-TQ-TIP RATIO ( HTB ) 

C 

140 RTB=S6RT(A1/PI E+RHB*PHB ) 

BH=RT B-RHB 

NB=IFIX(PIE*2.*RTB*S0LCvAR/BH) 

HT B=RHB/RTB 
C 

C CALCULATE BLADE TIP RADIUS ( RTBA ) IN INCHES, TIP SPEED (UTP1) 

C AND STRESS LEVEL (ST1) 

C 

RTBA=RTB*12. 

RHBA=RHB*12. 

UTP1=RPM2*2.*PIE/60,*PTB 
IF ( I .GE.NST) GO TO 160 
UTP1=UTP1*RPMP 
IPP=0 

CALL STRESS ( RTB,TT IS ,UTP1 , HTB , RPM2 , ST1 ,TR ,NT , I PP , RH01, TM ) 

C 

C CALCULATE STAGE WEIGHT ( WTT ) AND LENGTH ( TLT) AND TOTAL COMPONENT 
C WEIGHT (WT) AND LENGTH (TL) 

C 

BH=BH*12. 

IF (IP.EQ.2) WRITE (10,310) I 

CALL TURWT (RHBA, BH,ST1,NB,AR ,STR , COOK, RH01, WTT, TLT) 

WT =WT+WTT 
TL=TL+TLT 

IF (IP.NE.2) GO TO 160 
WRITE (10,280) 

IF ( I S I G ) GO TO 150 

WRITE ( 10,290) PRR( I) ,DHAS,XMCS ,A1 , RHBA, RTBA, NB,UTP1 ,ST1 , WTT, TLT 
GO TO 160 

150 SDHAS=DHAS*C0NVER(9) 

SA1=A1*C0NVER(4) 

SRHBA=RHBA*CONVER( 1 ) 

SPTBA=RTBA*CONVER< 1 ) 

SUTP1=UTP1*C0NVER( 2 ) 
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SST]~ST1*C0NVER(6) 

SWTT=WTT*C0NVER(3) 

ST LT=TLT*CGNVER ( 1 ) 

WRITE (10,300) PRR(I) ,SDHAS , XMCS , SA1 , SRHBA, SRTBA, NB, SUTP I, SSTI, SWT 
IT , STLT 

160 CONTINUE 
WTFRA=0. 

IF ( IWMEC(2,NTT) .NE.O.) CALL FRAME < RTBA,3 , WTFRA , I P) 

IF (IWMEC(2,NTT).NE*0) TL=TL+TL/NS 
WT =WT +WTFP A 
RI (2 , NODEG)=RHBA 
RO(2,NODEO)=RT6A 
ALENG(NTT)=TL 
WA TE ( NTT ) =WT 
IF ( I°.NE.2) RETURN 
C 

C WRITE COMPONENT DIMENSIONS 
,C 

WRITE (10,260) 

IF ( I SI G ) GO TO 170 
WRITE (10,270) NS, TL, WT 
GO TO 180 

170 TL-TL^CONVER ( 1) 

WT=WT*CCNVER(3) 

WRITE (10,270) NS , TL , WT 
180 RETURN 

190 WRITE (10,320) NTT 
RETURN 
C 

200 FORMAT ( 8H TURBINE , 1 3 ,3 1H WORK OR RADIUS TOO HIGH, RC = ,F6.2) 

210 FORMAT (9H TURB INE , 13, 20H MECHANICAL DESIGN ) 


220 

FORMAT 

( 36H 

H/T 

N STG LOADING 

AREA 

) 


230 

240 

FORMAT 

FORMAT 

(4F8.3) 

(49H 

UT 

RTIP RHUB 

DEL H 

RPM 

TORQ ) 


250 FORMAT (5F8.1,F8.0) 

260 FORMAT (/,26H N ST G LENGTH WEIGHT ) 

270 FORMAT ( 16, F9. 2,F8. 2, /) 

280 FORMAT (42H PR DEL H MACH AREA R HUB R TIP NB, 30H U TIP 

1 STR WEIGHT LENGTH) 

290 FORMAT ( F7.4 , F6 . 1 , F6. 3 ,F 7 .3 ,F6 . 2 ,F7- 2 , 14 , F7 . 1 , F7. 0 , 2F8. 2 ) 

300 FORMAT ( F7 .4, F6. 1 , F6. 3, F7 .3, F6 . 2, F7. 2 , 14, F7. 1 , F7. 0, 2F8. 2) 

310 FORMAT (/,7H STAGE ,14) 

320 FORMAT (8H TURBINE, 13 ,40H STAGE AND BLADE PARAMETERS MEANINGLESS) 
END 


B-61 



aooonnoaooonoooor>ooooooonnooor>ooor>nononor>ooOoaoononnor>o 


SUBRCUTINEITUPWT) 

PURPOSE 

THIS ROUTINE CALCULATES THE WEIGHT AND LENGHT 
OF TURBINE STAGES, 

CALLING ROUTINES 

REQUIRED SUBROUTINES 

MODIFICATION HISTORY 

DATE ID ANALYST DISCRETION 


AUTHOR /LANGUAGE/DATE 

E. GNAT , R. J. PERA/FORTRAN IV/ 09 30 76 


GLOSSARY 


NAME 

ORIGIN 

USAGE 

DISCRIPTIGN 

RHBA 

ARG 


HUB RADIUS - IN 

BF 

ARG 


BLADE HEIGHT - IN 

ST1 

ARG 


STRESS 

NB 

ARG 


NUMBER OF BLADES 

AR 

ARG 


ASPECT RATIO 

STR 

ARG 


REFERENCE STRESS 

RFCB 

ARG 


BLADE DENSITY 

COOK 



COOLING FLOW 

WT 



WEIGHT - LBF 

TL . 



LENGHT - IN 

STF 



STRESS FACTOR 

DISKV 



DISK VOLUME -LBF/CU IN 

BLADEW 



BLADE WEIGHT - LBF 

BLADEL 



BLADE LENGTH - IN 

WNGZZ 



VANE WEIGHT - LBF 

TLNOZ 



VANE LENGHT - IN 

WTNB 



NUTS AND BOLTS WEIGHT 

CASEW 



CASE WEIGHT - LBF 
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C 


SUBROUTINE TURWT (R HBA, BH,ST1 ,NB, AR,$TR,CGOK, RHOB, WT, TL ) 

REAL *8DATINP , DATOUT , WTF , TOPRES ,T0TEMP , FAR, CORFLO , VMACH ,STATP , ERRO 
1R,TOL,TQLT,TOLTT,DEPV,DTOL,PERPF 

*******$##**$**** 

* COMMON BLOCKS * 

if Jjt * :jc # £ £ * # * £ * ^ * If £ 

COMMON /DBL/ DATINP ( 1 5, 60 ) , DATOUT ( 9, 60) , WTF (40) , TOPRES (40) ,T0TEMP( 
140) , FAR (40) ,C0RFL0(40) t VMACH(40) ,$TATP(40) , ERROR <40 } ,T0L, TOLT ,TOLT 
2T , DEPV ( 20 ) » DTOL ( 20 ) , P ERPF ( 201 

COMMON /SNGL/ JM1 ,J M2 ,JP1 ,JP2,JCX , LOCTBL (9,60 ) , JCOMP< 70 ) , IWAY,NIT, 
1ITAB(70), JCQNF(60,4), JTYPE(fcO) , JFL0W( 70) , IDEDAPI 15) tKKINDS (14,25 ) , 
2NCCMP, NCSTAT,NI TER, NF INIS, NPASS , JCC, NTBL, NCTS, JCIND(20) ,JCDEP( 20) , 
3JCVINDI 20) ,JCVDEP( 2 0) ,KDTYP(20) , I DONE (60) 

COMMON /NMECH/ IWMEC(7,60),WATE(60) , ALENG (60) , TLENGC 40) ,PI(2,40) ,R 
10 ( 2,40) ,DE SVAL ( 15,6 0) ,DSHAF(5) , RPMT( 60 ) , I WT , I PLT , I ERR, I S I I , IS 1 0, 10 
2UTCD,NSTAG(60) 

COMMON /CGNVER/ C0NVERQ5) 

COMMON /DEFAUL/ DEFAUL( 15 , 20) 

LOGICAL IWT, IPLT* IERR'ISI I,ISIO 
TR = 1. 


READ IN VALUES OF REFERENCE STRESS AND COOLING 


COOL= .8 

IF (COOK.LE.O.) C00L=1. 

CALCULATE DISK VOLUMES 

STF=ST1*RHBA/STR/12. 

DISKV=.95238*STF 

IF (STF.GT..168) DI SKV=1273. 20662*STF**4-1188. 71514*STF**3+432.626 
1581*$TF**2-67.4673543*STF+3. 9062350 8 
IF (STF.GT..3) DISKV=7.18751*STF-1. 33625 

CALCULATE DISK WEIGHT 

DI SKW=CI SKV* • 296* ( 2 «*RHBA ) *#2 

CALCULATE BLADE WEIGHT AND LENGTH 

BLADEW=.195*BH**3/AR**2*RH0B*N8*C00L 

BLADEL=BH/AR 

CALCULATE NOZZLE WEIGHT AND LENGTH 

WN0ZZ=.144*BH**3/(AR/2. )**2*RH0B*( NB) 

TLN0Z=BH/AR*2 . 

TL- ( TLNOZ+BLADEL ) *1.17 

CALCULATE NUTS AND BOLTS WEIGHT 
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c 

WTNB=RHBA*.75*2.*3. 1416*. 075*TL* . 296*RHBA 
C 

C CALCULATE CASEWEIGHT 
C 

CASEW= ( RHBA+B H ) *2 .*3. 1416*. 1*. 286*TL 
C 

C CALCULATE TOTAL STAGE WEIGHT AND LENGTH 
C 

WT=DI SKW+BLADEW+WNGZZ+WTNB+CA SEW 
IF ( IOUTCD.NE.2) RETURN 
WRITE (10,30) 

IF (ISIC) GG TO 10 

WRITE (10,20) DISKW, 6LADEW, WNOZZ, WTNB »CA$ EW, AR 
RETURN 

10 DISKW=DISKW*CGNVER(3) 

BL AD EW= BLADE W*CGNVER( 3) 

WNOZZ=WNOZZ*CONVER ( 3) 

WTNB=WTNB*CONVER (3 ) 

CASEW=CASEW*CONVER( 3) 

WRITE (10,40) DISKW »BLADEW, WNGZZ, WTNB »CASEW,AP 
RETURN 
C 

20 FORMAT (5F7.1,F6.2) 

30 FORMAT (39H DISK BLADE VANE HWD CASE 

40 FORMAT (5F7.2,F6.2) 

END 


AR) 
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**&******#*#*#***************&******#********## 
SUBROUTINE { WMI XR 1 

PURPOSE 

THIS ROUTINE CALCULATES THE WEIGHT AND DIMENSION 
OF FORCED MIXERS 

CALLING ROUTINES 
REQUIRED SUBROUTINES 


MODIFICATION HISTORY 


DATE 


ID 


ANALYST 


DISCRETION 


AUTHOR/LANGUAGE/DATE 

E. ONAT , R. J. PERA/FORTRAN IV/ 09 30 76 


GLOSSARY 


NAME ORIGIN USAGE DISCRETION 


I COMP 
NCDEII 
NODEOO 
All 
A 1 0 
R 1 1 
RIO 
RM 12 


RI2 

RMI 

RMC 

ROO 

SPL 


PN 

ALE 

WTM 


c******** 


ARG 




COMPPONENT NUMBER 

NODE IN OF INNER 

NODE IN OR OUTER 

AREA OF INNER 

AREA OF OUTER 

REF. RADIUS OF INNER 

REF. RADIUS OF OUTER 

MEAN RADIUS OF INNER SQUARED 

INNER RADIUS OF MIXER SQUARED 

INNER RADIUS OF MIXER 

MID RADIUS OF MIXER 

OUTER RADIUS OF MIXER 

SPECIFIC LENGTH SORT ( L/4A/PIE) 


NUMBER OF PASSAGES 
MIXER LENGTH 
MIXER WEIGHT 
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c 

SUBROUTINE WMIXR (ICOMP] 

PEAL *8DATINP,DATOUT,WTF,TOPRES,TOTEMP,FAR,CORFLO,VMACH,$TATP,ERRO 
1R »TGL »TOLT ,TOLTT , DEPV , DTOL » PERPF 
C 

c * COMMON BLOCKS * 

C fc****##**#*#***## 

c 

COMMON /DBL/ DATINP (15,60 1 , DAT0UTC9, 60) ,WTF(40) » TOPRESt 40 ) ,TOTEMP( 
140) , FAR (40) ,CGRFL0(40) ,VMACH(40) ,STATP( 40 1 , ERROR (40 ) ,TOL,TOLT ,TOLT 
2T , DEPV ( 20 ) , DTOL ( 20 ) ,P ERPF ( 20 ) 

COMMON /SNGL/ JMI , J M2 , JPi , JP 2, JCX, LOCTBL (9 ,60 ) , JCOMP ( 70 ) , IWAYtNIT , 
1 IT ABC 70) ,JC0NF(60,4), JTYPE(60) ,JFLOW( 70) ,IDEDAP( 15) ,KKINDS(14,25) , 
2NC CMP, NGSTAT, NITER, NF INIS , NPASS , JCC,NTBL,NCTS, JCINDC20) ,JCDEP ( 20) , 
3JCVIND(20),JCVDEP(20) ,KDTYPC20) , I DONE (60) 

COMMON / WMECH/ IWMECC 7,60) , WAT EC 60) ,ALENG(60) ,TLENGC40) ,RIC2,40) ,R 
IOC 2,40) ,DESVAL( 15,60) ,DSHAF( 5) ,RPMT(60) , 1 WT , I PLT , I ERR , I SI I , IS 10, 10 
2UT CD,NSTAG(60) 

COMMON /CONVER/ CONVERC 15 ) 

COMMON /DEFAUL/ DEF AULC 15 , 20 ) 

LOGICAL IWT,IPLT,IEPR,ISII,ISIO 
C 
C 

C * DATA STATEMENTS * 

C #*****:Mc******!M«(s** 

C 

DATA LFMIX/4HFMIX/ 

C 

C INPUT DESIGN VALUES 
C 

INOD= 1 

IF (IWMECC2, ICOMP). NE.O) IN0D=2 
NODEO=JCONFC ICOMP, 3) 

GO TO (10,20), INOD 
10 NODEI I=JCONF( ICOMP, 1) 

NODEIC'=JCONF( ICOMP, 2) 

AII=DATCUT(1, ICOMP) 

AIO=DATOUT ( 2, ICOMP ) 

GO TO 30 

20 NODEI I=IWMEC( 2, ICOMP) 

NODE= JCONFC ICOMP, 1) 

NODEI C=JCONFC ICOMP, 2) 

AI I=DATOUTC 1 , ICOMP ) 

A 1 0=DAT CUT C 2 , ICOMP) 

IF ( NODEI I .EQ. NODE ) GO TO 30 
AI I=DATCUT (2 , ICOMP) 

AI0=DAT0UTC1, ICOMP) 

NODE 1 0=N0DE 
30 IDES=1 

IF (I WMEC(1,ICGMP).EQ.LFMIX) IDES=2 
C 

C CALCULATE DIMENSIONS OF MIXER 
C 

R I I=R H 2 , NODEI I ) 

R0I=P0(2,N0DEII) 
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RMI2=(R0I**2+RI I**2)/2. 

RI2=RMI2— AI 1/ 6.2832 
IF ( R I 2 • LE.O . I RI2=0. 

RMI=SQRT(RI2) 

RMG=S QRT(AII/3.1416+RI2) 

ROC=SQRT( AIG/3.1416+RM0**2) 

RI (l,NODEIH = RMI 
RO(l , NODE I I ) = RMG 
RI (l,NODEIO)=RMO 
RGd , NGDEIO)=ROO 
RI ( 2, NODEO) =RMI 
RO (2 , NOOEC) = RQO 
IF (IDES.EQ.2) GO TO 40 
ALENG( ICOMP)=0. 

WATE( ICCMP)=0 • 

RETURN 

C 

C DESIGN FOR FORCED MIXER 
C 

40 AA=(AII+AI0)/2. 

ITP=1 

IF (DESVALd, ICOMP) .EQ.O.) ITP=2 
GO TO (50,60) , I TP 
50 SPL=DESVAL(1, ICOMP) 

PN=DESVAL (2, ICOMP) 

GO TO TO 

60 SPL=0EFAUL(1, 16) 

PN=DEFAUL(2,16) 

C 

C CALCULATE WEIGHT AND LENGTH 
C 

70 ALE=SPL*SQPT(4.*AA/3. 1416) 

WTM=(3.927*RM0+1,25*PN*(RG0-RMI ) )*ALE*.028 

WATE( ICOMP )=WTM 

ALENGt ICOMP ) =ALE 

IF ( I0UTCD.NE.2) RETURN 

WRITE (10,90) IWMEC(1, ICOMP) , ICOMP, IOUTCD 
IF ( I SI 0 ) GO TO 80 
WRITE (10,100) ALE » WTM 
RETURN 

80 WTM=WTM*C0NVER(3) 

ALE=ALE*CCNVER(1) 

WRITE (10,100) ALE, WTM 
RETURN 
C 

90 FORMAT ( 1H /14H *************/14H * */4H * ,A4,I3,3H * 

1/14H * */13H ************ ,11) 

100 FORMAT ( 8H LENGTH=, F7 .2 ,9H WEIGHT =,F8.2,/) 

END 
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C#**#**$ £###********##*****##*$**** ***#**#¥*#** *^***5**** #*****$******** 
SUBROUTINE ( WSPLT) 

PURPOSE 

THIS. ROUTINE CALCULATES DIMENSIONS FOR NON 
ROTATING SPLITTERS. 

CALLING ROUTINES 
REQUIRED SUBROUTINES 


MODIFICATION HISTORY 


DATE ID ANALYST DISCRETION 


AUTHOR /LANGUAGE/ DATE 


E. ONAT , R. J. PERA/FORTRAN IV/ 09 30 76 


GLOSSARY 


NAME 

ORIGIN 

USAGE 

DISCRETION 

ICOM 

ARG 


COMPONENT NUMBER 

NCDEOP 



NODE OUT PRIMARY 

NODEOS 



NODE OUT SECONDARY 

NODEI 



NODE IN 

BYP 



BYPASS RATIO 

RSO 



OUTER RADIUS 

RSI 



INNER RADIUS 

RM 



SPLITTER RADIUS 


SUBROUTINE WSPLT (ICOMPJ 

REAL *8DATINP»DATQUT, WTF,TOPRES t TOTEM P T FAR, CORFLO, VMACH,STATP , ERRO 
lR,TOL,TOLTtTOLTT,DEPV,DTGL»PERPF , 




***************** 

* COMMON BLOCKS * 

# jfc # jfc # =}e % jjc $ £ * ajc jfcjf: * # 


B-68 



O O O 


C 


COMMON /DBL/ DATINP ( 1 5, 60) , DATOUT( 9 , 60) ,WTF(40) ,T0PRES(40) ,TOTEMP< 
140) t FAR (40) ,CQRFL0(40 ) , VMACH < 40 ) , STATP { 40 ) , ERROR ( 40 ) , TOL, TOLT, TOLT 
2T,DEPV(20),DT0L(20) ,PERPF(20) 

COMMON /SNGL/ JM1,JM2,JP1 , JP2 , JCX , LOCTBL ( 9 ,60 ) , JCOMP C 70 ) , I WAY, NIT, 
1ITAB( 70) , JCONF( 60*4),JTYPE(60) , JFLOW< 70 ) , I DEDAP ( 15 ) ,KKINDS (14,25 ) , 
2NC0MP , NGST AT, NITER, NF IN IS , NPASS , JCC , NTBL , NCTS , JC I ND ( 20) ,JCDEP(20) , 
3JCVIND(20),JCVDEP(20) ,KDTYP ( 20 ) , I DONE (60 ) 

COMMON /WMECH/ IWMECI 7, 60 ) , WATE < 60 ) , ALENG ( 60) , TLENG(40) , P I <2 ,40 ) , R 
10( 2,40) ,DESVAL(15 ,6 0) ,DSHAF< 5 ) , RPMT ( 60 ) , I WT, I PLT, I ERR, I SI I , I S 10 , 10 
2UTCD 

COMMON /CONVER/ C0NVEP(15) 

COMMON /DEFAUL/ DEF AUU 15 , 20 ) 

LOGICAL IWT, IPLT, IERR,ISI I, ISIG 

ESTABLISH INPUT VALUES AND DETERMINE DINENSICNS 

NCDEOP= JCGNF ( IC0MP,3) 

NQDEOS=JCONF{ ICOMP ,4) 

NODE I=JCONF ( ICOMP, 1) 

BYP=DATGUT(1, ICOMP) 

RS C=RO ( 2, NODE I ) 

RSI =R I (2 , NODE I ) 

IF (DESVALd, ICOMP) .EQ.O.) GO TG 10 
W I=WT F ( NODE I ) 

TI=TCTEMP(NODEI ) 

PI=TOPPES( NODE I ) 

AI=DESVAL(1, ICOMP) 

HTR=DESVAL(2, ICOMP) 

IP=0 

CALL DUCT (TI ,PI,WI ,AI , XM, PS ,Q, ISIO , IP) 

RSQ=SQRT< AI*144./3. 14159/I l.-HTR**2) ) 

RSI=RSC*HTR 
RO ( 2 , NODEI ) =RSC 
RI (2,N0DEI ) = RS I 
10 RM=SQRT( (RS0**2+BYP*PSI**2)/( l.+BYP) ) 

R I ( 2 , NODE OP ) = RS I 
R0( 2 , NODE OP ) =RM 
R I ( 2 , NODEOS )=RM 
RC(2 , NGCECS) -RSO 
WATE( I COMP ) = 0 . 

ALENG( ICOMP )=0* 

RETURN 

END 
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C ********* **** **j}::***i{':*****#****************:ie#*****;ie***;**ait*::M'****#******* 
SUBROUTINE (WTNOZ ) 


PURPOSE 


THIS ROUTINE CALCULATES DIMENSIONS AND WEIGHT 
OF CONVERGENT AND DIVERGENT NOZZLES. 


REQUIRED SUBROUTINES 


MODIFICATION HISTORY 


DATE ID ANALYST DISCRETION 


AUTHOR /LANGUAGE/ DATE 


E. ONAT i R. J . PERA/FORTRAN IV/ 09 30 76 
GLOSSARY 


NAME 


ORIGIN USAGE DISCRETION 


ICOM ARG 

NGCEI 
NCDEO 
T I 


COMPONENT NUMBER 
NODE IN 
NODE OUT 

TEMPERATURE IN - DEG R 


RHC 

ITYP 

NCR 

RNO 

IDES 

TLD 

WTN 

ALN 

TYP 


MATERIAL WEIGHT PER SQIN 
NOZZLE TYPE 

REFERENCE NODE FOR OUTER RADIUS 

OUTER RADIUS - IN 

DESIGN VALUE INDICATOR 

LENGHT/ DI AMETER 

WEIGHT - LBF 

LENGHT - IN 

TYPE NOZZLE SCALER 


SUBROUTINE WTNOZ (ICCMP) 

REAL *8DATINP ,DATGUTt WTF , TORRES , TOTEM P , FAR»COP F LO , VMACH , STATP , ERRO 
1R»T0L»TCLT » TOLTT , DEPV j DTOL » PERPF 

* COMMON BLOCKS * 
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c 

COMMON /DBL/ DATINP ( 15 ,60) ,DATOUT( 9 ,60) ,WTF(40) ,TOPRES (40 ) »TOTEMP ( 
140 ) » F AR ( 40 ) » CORFLO( 40 ) , VMACH( 40 ) ,STATP(40) , ERROR (40) ,TOL , TOLT , TOLT 
2T,DEPV( 20) ,DTOL ( 20 ) ,PERPF(20) 

COMMON /SNGL/ JMl , JM2, JP1 , JP2, JCX, L0CTBL(9 ,60) , JCOMP( 70 ) , I WAY, NIT , 
II TAB (70) ,JCONF( 60,4), JTYPE(60) ,JFLOW( 70), IDEDAP( 15), KKINDS( 14,25 ) , 
2NC0MP tNOSTAT , NITER, NF INIS, NPASS, JCC,NTBL» NCTS , JC I ND (20) ,JCDEP(20) , 
3JCVIND(20) ,JCVDEP(20) , KDTYP( 20 ) , I DONE (60) 

COMMON /WMECH/ IWMEC( 7,60) ,WATE(60) , ALENG ( 60) ,TLENG(40) ,RI (2,40) ,R 
10(2,40),D£SVAL(15,60) ,DSHAF( 5) ,RPMT(60) , I WT, I PLT , I E PR ,1 SI I , I SI 0,10 
2UTCD ,NSTAG(60) 

COMMON /CONVER/ C0NVER(15) 

COMMON /DEFAUL/ DEFAULt 15 , 20 ) 

LOGICAL IWT,IPLT»IERR»ISII ,ISIO 

IF ( IOUTCD.GT.l) WRITE (10,110) I WMEC ( 1, ICOMP ) , ICOMP , IOUTCD 
C 

C ESTABLISH INPUT VALUES 
C 

NODE I=JCONF( ICOMP, 1) 

NODEO=JCONF( ICOMP, 3) 

TI-TOTEMP(NODEI) 

RHO= .0168 

IF (TI.GT.1160. ) RHO= .0283 
ITYP=IWMEC{2, ICOMP) 

NCR=NOCEI 

RNG=R0(2,NCR) 

JTYP=1 

IF ( IWMEC(3, ICOMP}. GT.O) JTYP=2 
IF (IWMEC(3, ICOMP). LT.O) JTYP=3 
GO TO (30,20, 10 ) » JTYP 
10 NC =-I WMEC (3, 1 COMP) 

NCR=JCONF(NC, 1) 

RN0=RC(1 ,NCP) 

GO TO 30 

20 NC=IWMEC(3, ICOMP) 

NCR=JCCNF(NC,3) 

RNO=RO ( 2, NCR ) 

30 IDES= 1 

IF (DESVALd, ICOMP). EQ.O.) IDES=2 
GO TO (40, 50), IDES 
40 TLD=DESVAL(1, ICOMP) 

GO TO 60 

50 TLD=DEFAUL (1,18) 

60 RO ( 1 , NODEI )=RNO 

RO (2 , NODEO )=RN0-2. 

C 

C CALCULATE WEIGHT AND LENGTH FOR CONVERGENT NOZZ 
C 

WTN=4.*3. 1416*RH0*TLD*RN0**2 

ALN=2.*RN0*TLD 

TYP=1 . 

IF (ITYP.NE.l) TYP=2. 75 
C 

C CALCULATE WEIGHT FOR VARIABLE NOZZLE 
C 

UTN=WTN*TYP 
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WTNT=WTN 

C CALCULATE THRUST REVERSER WT 
WTTR=0. 

IF (IWMEC(4»I COMP) • EQ.O ) GO TO 90 
PO=TOPRES( NODEI ) 

WC=CGRFLO( NOD El)/ 1.54972555 
PR N=P 0/ 14. 696 
CMIX=1 . 

IF ( I WMEC (4 , I COMP ) . EQ .1 ) GO TO 70 
B1=.23014*PRN+.56091 
WTTR=(2.2222*WC+11. 1)*B1*CMIX 
GO TO 80 

70 Al=l ,0036*PRN— .5054 

IF (Al.LE.l.) Al=l. 

WTTR=( .52631*WC+423.)*A1 
80 WTNT= WTN+WTTR 

90 WAT6( ICOMP)=WTNT 

AL ENG( ICOMPI-ALN 
IF ( I 0UTCD.NE.2 ) RETURN 
WRITE (10,120) ICOMP 
IF (ISIC) GO TO 100 
WRITE (10,130) WTN,ALN» WTTR 
RETURN 

100 WTN= WTN*CCNVER (3 ) 

ALN-ALN*CONVER( 1) 

WTTR= WTTR*CONVER ( 3 ) 

WRITE (10,130) WTN, ALN, WTTR 
RETURN 
C 

110 FORMAT (1H /14H ***=M<******** /14H 4 */4H * ,A4,I3»3H * 

1/14H * */13H #**##*****##, i ij 

120 FORMAT ( 8H NOZZLE ,14) 

130 FORMAT (9H WEIGHT 3 ,F8.2,9H LENGTH 3 ,F8.3,7H TR WT=,F8.2,/) 

END 


B-72 



BLOCK DATA 

COMMON /WMECH/ IWMEC( 7, 60) , WATE(60) ,ALENG(6Q) »TLENGC40) ,RI(2,40> ,R 
10(2,40) , DESVAL (15 ,60 ) , DSHAF( 5 ) , RPMT ( 60 ) , I WT, I PLT, I E RR , I SI I , I SIO , 1 0 
2UTCD » N STAG ( 60) 

COMMON /CONVER/ C0NVERI15) 

DATA DESVAL/900*0. / 

COMMON /DEFAUL/ DEFAUL( 15, 20) 

DATA IWMEC/420*0/ 

DATA CON VER/2. 540,. 3048,. 4536,. 0929,. 02 7681 ,.68948,4.882, .55556,1 . 

105435. . 07457 .47 .88.4*0./ 

DATA DEFAUL/. 55, 1.7,. 45, 1.5, 4. ,3. , .45 ,0 . , 0. , 1 . ,0. , 2. , 1. ,0 . ,0. , . 55 , 

11.7. . 45. 1*5,4. ,3., . 45 ,0.,0* ,1.,0.,2. , 1. ,0. ,0. ,.55, 1.-7 ,.45,1.5,4. ,3 

2. . .45.0. .0* ,1. ,0. ,2. , 1. ,0. ,0. , .55,1.7 , .45,1.5,4., 3. , .45 ,0.,0.,1.,0 

3.. 2..1..0..0...55.1.7. .45 .1.5. 4.. 3.. .45 .0..0..1..0. .2..1..0..0«,.5 

4. 1.5. . 4. 1.5. 4. .3. . .45 .0..0..1*,0.,2.,1.,0.,0., .4, 1.4, .7, 1.5,3. ,1.5 

5.. 3.0..0. . 1 . . 0 . .2. .1. ,0. ,0. ,.3, .25, 1.5, 1.5, 1.5, .45, 125000. ,2.,1.,6 
6*0.,. 45, .25, 1.5, 2., 4., .55, 125000. ,2., 1., 6*0. , 100. ,.015, 13*0. ,150. , 
7.015,13*0. ,.4,1. ,0. ,— 1. ,11*0. ,300. , .015 ,13*0. ,50000. , .286, 13*0. , 50 

800.. .5. .5. 7.. .05. .8.9*0., 1., 8. ,13*0. ,1. ,8., .5,. 5, 11*0. , 1. ,14*0. ,30 
9*0./ 

END 
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FUNCTION STHERM 


PURPOSE 


TO COMMON I C AXE SINGLE PRECISION GAL-LS OF WEIGHT ESTIMATING 
ROUTINES FOR FLUID PROPERTIES WITH THE NNEP ROUTINE -THERM 
WHICH REQUIPES DOUBLE PRECISION ARGUMENTS 


USAGE 


FUNCTION STHERM (I , ARG* FA) 

REQUIRED SUBROUTINES 
THERM 

GLOSSARY 

I FLAG FOR USAGE 

ARG ARGUMENT TO THERM (SINGLE PRECISION) 
FA FUEL AIR RATIO (SINGLE PRECISION) 

DARG ARGUMENT TO THERM (OOUBLE PRECISION) 

CFA FUEL AIR RATIO (DOUBLE PRECISION) 

FUNCTION STHERM ( I » ARG»FA ) 

REAL *8DARG,DFA 

DARG=ARG 

CFA=FA 

STHERM=THEPM( I »DARG »DFA) 

RETURN 

END 
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£#***#*****#######&*#**#**#******##**###***##*****#**********#**■#%&#*#** 
SUBROUTINE WTEST 


PURPOSE 


TO CONTROL THE CALLING OF SUBROUTINES WHICH WILL ESTIMATE THE 
WEIGHT AND LENGTH OF INDIVIDUAL COMPONENTS 

DESCRIPTION 


THE OVERALL LENGTH OF THE ENGINE IS CALCULATED BY PROCESSING THE 
ILENG ARRAY. ALL COMPONENTS EXCEPT DUCTS AND SHAFTS, THEN DUCTS. 
THE REMAINING COMPONENTS EXCEPT DUCTS AND SHAFTS ARE PROCESSED. 
THE DUCTS ARE PROCESSED AND FINIALY THE SHAFTS. 

A BUILT-IN ASSUMPTION IN THE DUCT ROUTINE IS THAT NO DUCT IS 
CONNECTED TO ANOTHER DUCT I.E. THE DUCT SIZE IS DETERMINED BY THE 
ADJOINING COMPONENTS. 

THEN THE MAXIMUM RADIUS IS FOUND. THEN DEPENDING ON THE PRINT 
FLAG —I OUT CD- THE REQUIRED PRINTING IS DONE 

IF THE PLOT CODE FLAG -IPLT- IS TRUE RCUTINE EPLT IS CALLED 
USAGE 


CALL WTEST 
CALLING ROUTINES 


FLGCAL- 
ZTOPZ - 

REQUIRED SUBROUTINES 


COMP -COMPRESSOR WEIGHT/LENGTH 
TURB -TURBINE 
SHAFT -SHAFT 
DUCTW -DUCT 

C OMB WT -PRIMARY BURNER WEIGHT/LENGTH 
WTNOZ -NOZZLE WEIGHT/LENGTH 

WMIXR -MIXER 
WSPLT -SPLITTER 
EPLT -PRINTER/PLOTTER 

MODIFICATION HISTORY 


DATE ID ANALYST DESCRIPTION 


MO/DA/YR IDENT NAME DESCRIPTION OF CHANGES 

AUTHOR /LANGUAGE/DATE 


NORMAN PREWITT-BOEING COMPUTER SERV. /FORTRAN IV / OCT 10,1976 
GLOSSARY 


B-75 



non r> o o o o n r> o ooo onoooooooonnoooooon 


NAME 

ORIGIN 1 

USAGE 

DESCRIPTION 

IWMEC 

/WMECH/ 

I 

CONTROL INFORMATION 

WATE 

/WMECH/ 

0 

WEIGHT OF EACH COMPONENT 

ALENG 

/WMECH/ 

0 

ACTUAL LENGTH OF EACH COMPONENT 

TLENG 

/WMECH/ 

0 

ACCUMULATED LENGTH TO END OF COMPONENT 

R I 

/WMECH/ 

0 

RADIUS INNER INLET, OUTLET EACH STATION 

RO 

/WMECH/ 

0 

RADIUS OUTER INLET, OUTLET EACH STATION 

DESVAL 

/WMECH/ 

I 

MECHANICAL DESIGN DATA OVERRIDES DEFAUL 

DSHAF 

/WMECH/ 

0 

SHAFT DIAMETER INNER TO OUTER 

RPMT 

/WMECH/ 

I 

ACTUAL COMPONENT RPM 

IWT 

/WMECH/ 

I 

WEIGHT ESTIMATION FLAG TRU=: DO IT 

IPLT 

/WMECH/ 

I 

PLOTTER FLAG TRUE= DO IT 

I ERR 

/WMECH/ 

0 

ERROR FLAG 

ISIO 

/WMECH/ 

I 

OUTPUT UNITS 0=ENGLISH, 0 SI 

IS 1 1 

/WMECH/ 

I 

INPUT UNITS 0=ENGLI SH, 0 SI 

IOUTCD 

/WMECH/ 

I 

PRINT FLAG 0=SUMMARY, 1=GENERAL ,2=DIAGN0STI C 

ILENG /WMECH/ I 
IDID 0 
SUBROUTINE WTEST 

************ 

COMPONENTS CONTRIBUTING TO OVERALL LENGTH 
FLAG = 0 COMPONENT NOT YET WEIGHED =1 YES 


* COMMON BLOCKS * 


COMMON /DBL/ DAT INP (15, 60) , OATOUK 9,60) ,WTF(40) ,TOPRES(40) ,T0TEMP( 
140) ,FAF (40) ,CORFLO(40 ),VMACH<40) , STAT P( 40 ) , ERROR ( 40 ) , TOL , TOLT , TOL T 
2T, DEPV( 20) ,DT0L( 20) ,PERPF(20) 

COMMON /SNGL/ JM1 ,J M2, JP1 ,JP2, JCX, L0CTBL(9,60) ,JC0MP(70) ,IWAY,NIT, 
II TAB( 70) , JCONF (60,4), JTYPE (60 ) , JFLOW ( 70 ) , I DEDAP ( 15 ) ,KKI NDS ( 14, 25 ) , 
2NC0MP ,N0STAT,NITER,NFINIS,NPASS,JCC,NTBL,NCTS,JCIND(20) ,JCDEP (20) , 
3JC VI NO ( 20 ) , JCVDEP(20) ,KDTYP(20) , IDONE(60) 

COMMON / WMECH/ IWMECt 7,60) ,WATE(60) ,ALENG(60) ,TLENG(40) ,RI (2,40) ,R 
10(2,40) ,DESVAL(15,60) ,0SHAF(5 ),RPMT( 60 ),IWT,IPLT, IERR,I SI I , ISIO, 10 
2UTCD, NSTAG(60) 

COMMON /CGNVER/ C0NVER(15) 

COMMON /NEPOPT/ DEBUG ,DEPQ , SELAST , CD , NDSET , NP ARTS , ESCALE, NPASSO, NV 
10PT,NJGPT» BOTM,TOPZ 


* DATA STORAGE DEFINITION * 

** ** * ******** **** *********** 

REAL *8DATINP , DA TOUT, WTF ,TOPRES,TOTEMP ,FAP,C0RFL0, VMACH, ST ATP , ERRO 
1R, TOL, TOLT, TOLTT, DEPV ,DTOL , PERPF 
LOGICAL PINP, IWT ,IPLT ,ISIO,ISII 
INTEGER IDID(60) , ILENG(40) 

NAMELIST / W/IWMEC,DESVAL, ACCS, IWT, IPLT,ISII, ISIO, IOUTCD,ILENG 


******************* 

* DATA STATEMENTS * 

******************* 

DATA IDUC,LSHAF,ENGU,SIU, IVAL V/4HDUCT , 4HSHAF , 4HENGL ,4HSI U ,4HVALV/ 
DATA PINP/. TRUE./ 


TEST WTEST FLAG 


C 


IF (.NOT. IWT) GO TO 420 
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C ZERO CUT OUTPUT ARRAYS 

C 

DO 10 1=1,5 
10 DSHAF ( I ) =0. 

DO 20 1=1,60 
WATE ( I ) =0 
NSTAG 1 1 1=0 
I D ID( I)=0 
RPMT ( I ) = 0 . 

20 AL ENG ( I ) =0 

DO 30 1=1,40 
TLENG ( I ) = 0 
RH1. I)=0 
ILENG ( I ) =0 
RI ( 2, I ) = 0 
RO ( 1 , I ) =0 
30 R0(2,I)=G 

C 

C NAMELIST READ OF WTEST DATA 

C 

CALL NAMEPR (9 , 10 , 8 , P INP ) 

READ (8,W) 

C 

c PROCESS LENGTH CONTRIBUTING VECTOR EXCEPT DUCTS AND SHAFTS 

C 

DO 150 1=1,40 
NC = I L ENG ( I ) 

IF (NC.EQ.O) GO TO 160 
JT=JTYPE(NC) 

GO TO (150,70,110,40,50,120,100,60,90,150,150,150,150,150) ,JT 

C COMPRESSOR 

40 • CALL COMP (NCi 
GO TG 140 

C TURBINE 

50 CALL TURB (NC) 

GO TO 140 

C MIXER 

60 CALL WMIXR (NC) 

GO TO 140 

C PRIMARY BURNER 

70 IF (IWMEC(1,NC).EQ.IDUC) GO TO 80 

IF ( I WMEC ( 1 , NC ) .EQ.IVALV) GO TO 130 
CALL CGMBWT (NC) 

GO TO 140 

C DUCTS 

80 CALL DUCT W (NC) 

GO TO 140 

C NOZZLES 

90 CALL WTNGZ ( NC ) 

GO TO 140 

C SPLITTER 

100 CALL WSPLT (NC) 

GO TO 140 

C TRANSFER DIMENSIONS FOR WATER INJECTION 
110 CALL DUMMY ( NC ) 

GO TO 140 
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C HEAT EXCHANGER HEIGHT 
120 CALL HMEC (NC) 

GG TO 140 
C VALVES 

130 CALL VALVWT (NC) 

C ACCUME LENGTH 

140 IUP=JCONF{ NC , 1) 

IDN=JCCNF(NC,3) 

TLENG(IDN)=TLENG(IUP)+ALENG<NC) 

IF (JT.EQ.6) TLENGt I0N)=TLENG( IUP) 

ID2=JC0NF(NC,4) 

IF (I02.GT.0) TLENG(ID2)-TLENGC I UP ) + ALENG (NC ) 

IF (JT.EQ.6) TLENG( ID2)=TLENG( IUP ) 

IU 2=JC0NF ( NC , 2 ) 

IF (IU2.GT.0) TLENG( IU2)=TLENG( IUP) 

I0I0( NC ) =1 
150 CONTINUE 

C- LAST COMPONENT WAS A NOZZLE SET ENGINE MAXIMUM LENGTH 

160 ENGLEN-TLENG( IDN) 

C 

C PROCESS REMAINING COMPONENTS 

C 

DO 250 1=1 jNCOMP 
IF (IDID(I).EQ.l) GO TO 250 
C 

C — PROCESS COMPRESSORS ,TUR8 INES»MIXERS,BURNERS»SPLITTERS 

NC=JTYPE( I ) 

IF (NC.LE.O) GO TO 250 

GO TO ( 250,200,240,170,180,230,220,190,250,250,250,250,250,250) ,NC 
C — COMPRESSOR 

170 CALL COMP (I ) 

GO TO 250 
C — TURBINES 

180 CALL TURB II) 

GO TO 250 
C — MIXER 

190 CALL WMIXR (I) 

GO TO 250 
C — BURNERS 

200 IF (IWMEC{1,I).EQ.IDUC) GO TO 250 
IF { I WMEC( 1,1 ) .EQ.I VALVJ GO TO 210 
CALL COMBWT (I) 

GO TO 250 
C VALVES 

210 CALL VALVWT (I) 

GO TO 250 

C SPLITTER 

220 CALL WSPLT (I) 

GO TO 250 

C HEAT EXCHANGERS 

230 CALL HMEC (I) 

GO TO 250 

C TRANSFER DIMENSIONS FOP WATER INJECTION 

240 CALL DUMMY (I) 

250 CONTINUE 
C 
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c — 


“ PROCESS DUCTS 
DO 260 I=i,NCQMP 
IF (IDID(I).EQ.l) GO TO 260 
NC=JTYPE ( I ) 

IF <NC.NE.2J GO TO 260 
IF (IWMEC(1,I).NE.I DUC) GO TO 260 
CALL DUCTW 1 <I) 

260 CONTINUE 

C PROCESS NOZZLES 

DO 270 I=1,NC0MP 

IF (IDID(I).EQ.l) GO TO 270 

NC=JTYPE(I) 

IF (NC.NE.9) GO TO 270 
CALL WTNOZ (I) 

270 CONTINUE 

C ACCUME LENGTH 

DO 290 I=1,NC0MP 
IF (IDID(I).EQ.l) GO TO 290 
NC=JTYPE( I J 

GO TO (290, 280, 280, 280,280, 280, 280, .280, 280, 290, 290,290* 290»290J , NC 
280 IUP=JCONF{ 1,1) 

IU2=JC0NF< 1,2) 

IDN=JCQNF( 1,3) 

ID2-JC0NF{ I ,4) 

TL ENG < I DN) =TLENG( IUP)+ALENG< I ) 

IF (NC.EQ.6) TLENG< I DN) =TLENG < IUP ) 

IF (IU2.GT.0) TLENG( IU2)=TLENG< IUP) 

IF (ID2.GT.0) TLENG (I D2)=TLENG< IDN) 

ID ID( I )=1 
290 CONTINUE 

C PROCESS SHAFTS 

DO 310 J = 1 , 5 
DO 300 1=1,25 
NC=KK INDS(11,I) 

IF (NC.LE.O) GO TO 310 

IF ( I WMEC( 1,NC) .NE. LSHAF) GO TO 300 

IF (IWMEC(2,NC).EQ.J) CALL SHAFT (NC) 

300 CONTINUE 

310 CONTINUE 

C 

C FIND ENGINE MAXIMUM RADIUS 

XR=0 

DO 330 1=1 tNOSTAT 

IF ( XR.GE.ROt 1,1)) GO TO 320 

XR=RO (1,1) 

320 IF ( XR.GE.RO ( 2 , I ) ) GO TO 330 
XR=R0(2, I) 

330 CONTINUE 

C 

C GET ENGINE TOTAL WEIGHT AND ALENG CONVERSION 

WATENG=0 

IF (ACCS.EQ.O) ACCS=. 1 
lftAT=0 . 

DO 340 1=1 ,NCOMP 

IF ( JTYPE( I ). EQ.9) GO TO 340 

WAT=WATE ( I ) +WAT 
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340 


CONTINUE 
WATACC=ACCS*WAT 

IF ( IOUTCD. GT .1 ) WRITE (10,430) IOUTCD 
IF (ISIO) WATACC=WATACC*CGNVGR( 3) 

IF ( IOUTCD. GT.l) WRITE (10,460) WATACC 
DO 350 I=1,NC0MP 
WF ACT R= 1 • 

IF <-DESVAL(l-5,I).NE.O.) WFACTR=DES VAL ( 15, I ) 

WATE{ I ) =WATE ( I )*WFACTR 
IF (.NOT. ISIO) GO TO 350 
WATE ( I )=WATE(I)*C0NVER(3) 

ALENG(I)=ALENG(I)*CONVER( 1) 

350 WATENG=WATENG+WATE ( I ) 

C 

C CONVERT RADIAL DIMENSIONS AND TLENG 

IF { .NOT. ISIO) GO TO 370 
DO 360 I=1,N0STAT 
RI(1,I)=RI(1,I)*C0NVER(1) 

R I (2 , I )=RI(2,I)*C0NVER( 1) 

R0(1,I )=R0(1,I)*CQNVER(1) 

R0(2,I)=R0(2,I )*CONVER( 1) 

TLENG( I)=TLEhG(I)*CONVER( 1) 

360 CONTINUE 
C 

C WRITE COMPONENT WEIGHT INFO 

370 UNITSI=ENGU 

IF (ISII) UNITSI=SIU 

UNITSO=ENGU 

IF (ISIO) UNITSO=SIU 

WRITE (10,440) UNI T SI , UN I TSO 

IF (IOUTCD. LT.l) GO TO 400 

WRITE (10,450) 

DO 350 I=1,NCGMP 
NC=JTYPE(I) 

IF (NC.LE.O) GO TO 350 

GO TO (380,38 0,380,380,380,380,380,3 80,380,390,380,350,350,390) ,NC 
380 IUP1=JC0NF( 1,1) 

I UP2= JCGNF ( I ,2) 

IDN1- JCONF (1,3) 

IDN2= JCCNF (1,4) 

WP ITE ( 10,470) I, WATE (I) ,ALENG( I) , TLENG ( I DN1 ) ,R I ( 1 , 1UP1 ) ,R0(1 ,IUP1 

1) , R I ( i , IUP2) , R0( 1, IUP2) ,RI(2, IDN1) ,R0(2,IDN1) ,R I( 2, IDN2) , R0(2, IDN2 

2) , NST AG ( I ) 

350 CONTINUE 

C 

c MAKE SUMMARY PRINT 

400 IF (.NOT. ISIO) GO TC 410 

XR=XP*CONVER( 1) 

ENC-LEN = £NGLEN*CGNVER( 1) 

410 WRITE (10,480) WATE NG , WATACC , ENGLEN ,XR 
IF ( I PLT ) CALL ENGPLT (ENGLEN, XR) 

420 IWT=. FALSE. 

RETURN 

C 

430 FORMAT ( 1H /14H ************* / 14H * */, 14H * ACCS WT * 

1/14H * */13H ************ , 1 1) 
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440 FORMAT (1H1,26H WEIGHT INPUT DATA IN ,A4,6H UNITS/2 7H WEIG 

IHT OUTPUT DATA IN ,A4»6H UNITS//) 

450 FORMAT (69H COMP WT COMP ACCU UPSTREAM RAOIUS DOWNS 

1TREAM RADIUS /77H NO EST LEN LEN RI RO Rl RO 

2 RI RO RI RO NSTAGE/) 

460 FORMAT </ t llH ACCS WT= t F8.3) 

470 FORMAT ( 1 7 , F6. 0, F7 .0» F6 .0 , 4F5 .0 , F6. 0, 3F5 .0 T 1 8 ) 

480 FORMAT (/,27H TOTAL BARE ENGINE WEIGHT=,F6.0 ,2X, 12HACCESS0RI ES=, F 
17.2,2X»23HESTIMATED TOTAL LENGTH=» F 6.0 » 2X» 2 5H ESTIMATED MAXIMUM RAD 
21 US= » F5» 0) 

END 
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C * ** * *** 3= # # ★ $ * # # ♦♦ £ ♦ * # * # * * # ❖ ** ❖ * * $ # ** * 

SUBROUTINE NPPNT 


PURPOSE 


GIVEN X AND Y SCALES, TWO POINTS AND A CHARACTER 
PLOT THAT CHARACTER IN AN ARRAY 

USAGE 

CALL NPPNT(XS,YS, ARRY, C H, PI, P2 ) 

DIMENSION ARRY(130»54) ,P1 (2),P2(2I 

CALLING ROUTINES 


DTRAP - PLOTS A TRAPAZOID 

ENGPLT - PLOT CONTROLLER 


REQUIRED SUBROUTINES 


NONE 



MODIFICATION 

HISTORY 


DATE 

ID ANALYST 

DESCRIPTION 

MO/DA/YR 

IDENT NAME 

REASON FOR CHANGE 

AUTHOR/LANGUAGE/DATE 



BOEING COMPUTER SERVICES/FORTRAN IV/150CT76 


GLOSSARY 





NAME 

ORIGIN 

USAGE 

DESCRIPTION 


ARRY 

ARG 

0 

PLOT SPACE 


CH 

ARG 

I 

CHARACTER TO PLOT 


PI 

ARG 

I 

THE X , Y OF THE FIRST 

POINT 

P2 

ARG 

I 

THE X , Y OF THE SECOND 

POINT 


SUBROUTINE NPPNT ( XS, YS,ARRY,CH ,P1 ,P2) 
DIMENSION ARRY (130,54), P112), P2<2) 

FIND MAX AXIS SUBTENDED 
DX=P2(I)-P1(1) 

DY=P2(2)-P1( 2) 

IF <ABS( CX) .GE..01) D IRX=DX/ABS C DX) 

IF (ABS(DY) . GE . . 01 ) DIRY=DY/ABS(DYJ 
XS 10=XS*10. 

YS6=YS*6. 

INC=0 

IF (ABS(DYi.GT.ABS(DXU INC=I 
XI =P 1 ( 1 ) 

YI=P 1 { 2 ) 
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IF (ABS(DX) . GE . . 01 ) SLOPE=OY/DX 
C CALCULATE RASTER LOCATION 
10 IXR=XI*XS10 

IYR=54.-YI*YS6 
IXR=MAXO( 1, MI NO (130, 1 XR I ) 

IYR=MAXO( 1,MIN0<54, IYR) ) 

ARRY ( IXR,IYR)=CH 
C INCREMENT ALONG THE LINE 
C CHOOSE X OR Y BASED ON INC 
IF ( INC.NE.O) GO TO 20 
C INCREMENT X 

XI=XI+DIRX/XS10 
IF (ABS(DY).LT.O.Ol) GO TO 30 
YI=< SLOPE* (XI-Pl(l) ) + Pl( 21 I 
GO TO 30 
C INCREMENT Y 
20 YI=YI +DIRY/YS6 

IF (ABS(DX).LT.O.Ol) GO TO 30 
XI =( ( (YI-PM2) I/SLOPE) +P 1(1) J 
C TEST FOR END POINT 
30 IF { INC.NE.O) GO TO 40 

IF (ABS(DX).GT.ABS(XI— Pltl))) GO TO 10 

GO TO 50 

40 IF (ABS(CY).GT.ABS(YI-PH2)) ) GOTO 10 

C PLOT END POINT 
50 IXR=P2(1)*XS10 

IYR=54.-P2(2)*YS6 
IXR=MAXO( 1,MIN0<130,IXRJ) 
IYR=MAX0(ltMIN0(54t IYR) ) 

ARRY ( IXR? IYR) =CH 

RETURN 

END 
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SUBROUTINE DTRAP 


PURPOSE 

DRAW TRAPAZGID GIVEN START, END, SCALES , RADI I , 

AND PLOT CHARACTER 

USAGE 

CALL DTRAP(XS,YS»SItSE,SII,SIO»SEI,SEO, CH, ARRY ) 
DIMENSION! ARRY( 130,54) 

CALLING ROUTINES 

ENGPLT PLOTTING CONTROLLER 

REQUIRED SUBROUTINES 

NPPNT - PLOT A LINE 

MODIFICATION HISTORY 


DATA ID ANALYST DESCRIPTION 

MO/DA/YR IDENT NAME REASON FOR CHANGE 

AUTHOR/LANGUAGE/ DAT A 


BOEING COMPUTER SEPVICES/FORTRAN IV/15GCT76 


GLGSSARY 


NAME ORIGIN USAGE DESCRIPTION 


xs 

ARG 

YS 

ARG 

SI 

ARG 

SE 

ARG 

SII 

ARG 

SIO 

ARG 

S El 

ARG 

SEO 

ARG 

CH 

ARG 

ARRY 

ARG 


SUBROUTINE DTRAP 


I X SCALE FACTOR 

I Y SCALE FACTOR 

I X OF FIRST STATION 

I X OF LAST STATION 

I Y OF INSIDE AT FIRST STATION 

I Y OF OUTER AT FIRST STATION 

I Y OF INSIDE AT LAST STATION 

I Y OF OUTER AT LAST STATION 

I CHARACTER TO BE PLOTTED 

0 PLOT ARRAY 

(XS,YSfSI ,SE , S 1 1 ,SIO ,SEI ,SEO,CH, ARRY) 


C 

DIMENSION ARRY (130,54), Pl(2), P2(2), P3(2), P4<2) 

C SET UP CORNER POINTS 

P1<1)=SI 
P 1 ( 2) =SI I 
P2 ( 1 1 =S I 
P2 ( 2 ) =S 1 0 
P3( I )=SE 
P3(2)=SE0 
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P4 ( 1 ) =SE 
P4(2)=SEI 
CALL NPPNT 
CALL NPPNT 
CALL NPPNT 
CALL NPPNT 
RETURN 
END 


(XS,YS t ARRY,CH,Pl t P2) 

<XS,YS,ARRY,CH,P2»P3) 

(XS,YS,ARRY,CH,P3,P4) 

<XS,YStARPY,CH,P4,P1) 
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SUBROUTINE ENGPLT 


REPRODUCIBILITY OF THE 
ORIGINAL PACE IS POOR 


PURPOSE 


TO MAKE A PRINTER/PLOT OF THE ENGINE COMPONENTS 
DESCRIPTION 


A ARRAY THAT IS 130 (NUMBER OF PRINT COLSi BY 
54 (NUMBER CF LINES OF PRINT ON ONE PAGE IS SET 
TO BLANK. A SCALE FACTOR IS ESTABLISHED AND THE 
COMPONENTS ARE PLOTTED BY CHANGING THE APPPOPRIA 
CHARACTER TO A CHARACTER REPRESENATIVE OF THE 
COMPONENT IE C FOR COMPRESSOR, B FOR BURNER, 

T FCR TURBINE, D FOR DUCT, N FOR NOZZLE, M FOR 
MIXER, 

USAGE 

CALL ENGPLT(XLtXR) 

CALLING ROUTINES 


WTEST — THE WEIGHT ESTIMATION ROUTINE 

REQUIRED SUBROUTINES 

NPPNT — PLOT A LINE 
DTRAP — PLOT A TRAP AZOI D 

MODIFICATION HISTORY 


DESCRIPTIO 
REASON FOR 


DATE ID ANALYST 

MO/DA/YR IDENT NAME 
AUTFOR/LANGUAGE/DATE 

BOEING COMPUTER SERVICES/FORTRAN IV/150CT76 
GLOSSARY 

ORIGIN USAGE 


NAME 

XS 

YS 

XL 

XR 


DESCRIPTION 


ARG 

ARG 


L 

L 

I 

I 


X SCALE FACTOR 
Y SCALE FACTOR 
ENGINE MAX LENGTH 
ENGINE MAX DIAMETER 


SUBROUTINE ENGPLT (XL,XR) 


J{c * $ 3jc £ # 3(c ^ # 3{C # jjc 

* COMMON BLOCKS * 
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REAL *8DATINP,DAT0UT,WTF ,TOPRE S , TOTEM P ,FA P ,CORFLO , VMACH , ST ATP , ERRO 
1R,T0L,TQLT,T0LTT,DEPV,DTGL,PERPF 

COMMON /DBL/ DATI NP (15 ,60 ) , DATGUT ( 9 ,60 ) ,WTF(40 ) ,TOPRES(40 ) »TGTEMP ( 
140 ) , F AR (40 ) , COFFLO ( 40 ) , VMACH( 40 ) , STATP ( 40 ) , ERR OR (40) ,TGL,TGLT,TOLT 
2T,DEPV(20) ,DT0L{20) ,PERPF(20) 

COMMON /SNGL/ JM1 ,JM2 , JP1 , JP 2, JCX , LGCTBL ( 9 ,60 ) , JCOMP(70) , I WAY, NIT , 
1ITAB< 70) ,JCQNF(60»4),JTYPE(60)*JFL0W(70), IDE DAP < 1 5 ) ,KKI ND SU4, 25 ) , 
2NCGMP , NOSTAT, NIT ER»NF INIS, NP ASS, JCC, NTS L, NCTS ,JCIND(20) ,JCDEP(20) , 
3JCVIND(20),JCVDEP(20) ,KDTYP{ 20 ) , IDONE ( 60) 

COMMON / WMECH/ I WMEC( 7 ,60 ) , WATE (60 ) , AL ENG (60 ) , T LENG (40 ) , R I ( 2 ,40 ) , R 
1C( 2,40) ,DESVAL( 15,60) , DSHAF( 5 ) , RPMT( 60 ) , I WT, I PLT, I ERR ,1 SI I , IS 10, 1 0 
2UT CD,NSTAG(60) 

COMMON /CONVER/ C0NVERI15) ' . 

COMMON /DEFAUL/ DEF AUL ( 15 , 20 ) 

LOGICAL IWT,IPLT,IERR,ISII,ISIO 
C 

C $***£* ***:£* **,{<**:$:** 

C * DATA STATEMENTS * 

C fc****************** 

C 

DIMENSION Pl( 10) » P2(2), ARRY( 130 ,54) , CL(4), IDC(5) 

DATA IDC/4HDUCT , 4 HP BUR , 4HD8UR , 4HAUG ,4HFMIX/ 

DATA CHA ,CHB ,CHC,CHD, CHM, CHN ,CHP,CH1»CHT/1HA, 1HB , 1HC, 1HD, 1HM, 1HN , 1 
1FP , 1H) , 1HT/ 

DATA CL/1H-,1HC,1H/,1HL/ 

DATA BL/1H / 

DO 10 1=1,130 
DO 10 J=l, 54 
10 ARRY I I , J ) = BL 
XS=13 . /XL 
YS=9. /XR 
XS=AMIN1(XS,YS) 

YS=XS 

C DRAW A CENTER LINE OF THE ENGINE 

C THE LINE IS OF THE FORM C/L C/L C/L 

1 = 2 

DO 30 J=1 » 15 
DC 20 K=1 , 5 
ARRY ( I , 54) =CL ( 1 ) 

20 1=1+1 

ARRY (1,54) =CL( 2) 

ARRY ( I + 1,54) = CL(3) 

ARPY( 1+2,54) =CL( 4) 

30 1=1+3 

DO 40 L=1 , 8 

40 ARRY( I+L,54)=CL( 1) 

C PROCESS EACH COMPONENT 

DO 130 I = 1 , NC G M P 
I J1=JC0NF( 1,1 ) 

I J 2= J CGNF (1,2) 

IJ3=JC0NF( 1,3) 

JT=JTYPE ( I ) 

IF { JT.LE.O) GO TO 130 

GO TO (130,50,130,90, 100, 130, 130, 110, 120, 130,130,130,130,130) ,JT 
C PROCESS DUCTS, PRIMARY BURNERS, OUCT BURNERS, AND AUGMENTERS 
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50 IF (IWMEC(1,I) .NE.IDCC13) GO TO 60 

C DUCTS 

PI ( 1 ) =TLENG( I J 1 ) 

P2( 13 =TLENG< I J3) 

PI ( 2 ) = RG ( 1 , I J 1 ) 

P2 (2) =RC(2,I J3) 

CALL NPPNT (XS,Y$,ARRY,CHD,P1 ,P2) 

PI (2 ) =F I ( 1., I_J 1.) 

P2(2)=RI<2,IJ3) 

CALL NPPNT (XS,YS, ARRY,CHD,P 1, P2) 

GO TO 130 

60 IF ( IWMECt 1, I ) .NE.IDCI2) 3 GO TO 70 

C PROCESS PRIMARY BURNERS 

Pl( 1)=TLENG( I Jl) 

P2 ( 1 3 =TLENG( IJ3J 
Pl( 2)=RC( 2,1 J13 
P2 (2 ) =R0 { 1 » I J 1 ) 

CALL NPPNT (XS,YS,ARRY,CHP,P1,P2) 

PI (2)=RI(2t IJ1J 
P2 <2 ) =R I ( 1 , 1 J 1 3 

CALL NPPNT (XS,YS,ARRY,CHP,P1,P2) 

PI ( 1 3 =TLENG( IJ33 
P1(2)=RI Cl, I J33 

CALL NPPNT ( XS, YS,ARRY,CHP,P1,P2) 

PI (23 =PG( 1 j I J3) 

P2 ( 2 3 =R0 ( 1, I J 1 3 

CALL NPPNT (XS,YS,ARRY,CHP,P1,P2) 

GO TO 130 

70 IF ( IWMEC(1,I).NE.IDC(33) GO TO 80 

C CRAW DUCT BURNER 

PI ( 1 )=TLENG( I Jl) 

P2(1)=TLENG(IJ3) 

PI ( 2) =R0{ 1,1 Jl) 

P2 ( 2 3 =R0 { 2 , 1 J 3 ) 

CALL NPPNT (XS,YS,ARRY,CHB,P1,P2J 
PI (2)=RI(1»IJ1) 

P2<23=RI(2,IJ3) 

CALL NPPNT (XS,YS,ARRY,CHB,P1,P2) 

PI (1) = P1(1) + .25*(P2(1)— PK 1) 3 
P2 ( 1 3 =P 1( 1 ) 

PI ( 2 3 =R I Cl, IJ1) 

P2 (2) =R0( 1 , I Jl ) 

CALL NPPNT (XS,YS,ARRY,CH1,P1 ,P2) 

GO TO 130 

80 IF (IWMEC(1,I).NE.IDC(4)3 GO TO 130 

C CRAW AN AUGMENTEP 

Pi ( 13 =TLENG( I Jl 3 
P2 ( 1 ) =TLENG( I J3 3 
PI (2 ) =RG ( 1 , I J 1 3 
P 2 ( 2 3 =RQ { 2 , 1 J 3 3 

CALL NPPNT {XS,YS,ARRY,CHA,P1,P23 
PIC 1)=P1(13+. 25* < P2< 13-PI (1) 3 
P2( 1)=P1 C 1 J 
P2 (2) =0. 

CALL NPPNT (XS,YS,ARRY,CH1,P1 ,P2) 

GO TO 130 
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C CRAW A TRAPZOID FOR A COMPRESSOR 

90 CALL OTRAP ( XS , YS ,T LENG( I J 1 ) , TL ENG ( I J 3 ) , R I( 1, I J 1 ) , R0( 1, I J 1 ) ,P I ( 2, I 
1J3),R0(2,IJ3) ,CHC,ARRY) 

GO TO 130 

C DRAW A TRAPAZOI D FOP A TURBINE 

100 CALL DTRAP { XS , YS , TLENGt I J 1) , TLENGU J3 ) , R I( 1, I J 1 ) , R0< 1 , 1 J 1 ) ,R I ( 2 , I 
1J3 ) ,R0(2,I J3) ,CHT t ARRY) 

GO TO 130 
C CRAW A MIXER 

110 IF (IWMEC(1,I).NE.IDC(5)> GO TO 130 
PI (li=TLENG(IJl) 

P2(1)=TLENG(I J3) 

P1(2)*RI(1, I J 1 J 
P2 ( 2) =R I ( 2 , I J3 ) 

CALL NPPNT (XS,YS,ARRY,CHM,P1, P2) 

Pl<2)*RC(lfIJl) 

CALL NPPNT (XS, YS,ARR Y,CHM»P1 tP2I 
PI (2) =R I (1 , I J2 ) 

P2 ( 2 ) =R0 ( 2,1 J3) 

CALL NPPNT (XS,YS,ARRY,CHM,P1,P21 
PI (2)-R0(l,IJ2) 

CALL NPPNT (XS»YS,ARRY,CHM,P1 ,P2J 
GO TO 130 

C DRAW A NOZZLE 

120 PI ( 1 ) =TLENG( I J 1 I 

P2(l) =TLENG( IJ3) 

P 1 ( 2) =P0( 1,1 J1J 
P2 (2 ) =R0( 2, IJ3 ) 

CALL NPPNT (XS,YS,ARRY,CHN,P1 »P2) 

130 CONTINUE 

WRITE (10,140) 

WR I T E (10,150) ARRY 
WRITE (10,140) 

RETURN 

C 

140 FORMAT (1H1) 

150 FORMAT (2X,130A1) 

END 
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SUBROUTINE! DUMMY) 

PURPOSE 

THIS ROUTINE TRANSFERS DIMENSIONS 
CALLING ROUTINES 

REQUIRED SUBROUTINES 

MODIFICATION HISTORY 

DATE ID ANALYST DISCRETION 


AUTHOR /LANGUAGE/DATE 

E« ONAT , R. J. PERA/FORTRAN IV/ 01 04 77 


GLOSSARY 


NAME 

ICOMP 


ORIGIN USAGE DISCRETION 


ARG I/O COMPONENT NUMBER 


SUBROUTINE DUMMY (ICOMP) 

REAL *8DATINP,DAT0UT»WTF , TOPRE S , TOTEM P » FAR , CORF LO , V MACH » ST ATP , E RRO 
1R,T0L,TCLT,T0LTT,DEPV,DT0L,PERPF 

***************** 

* COMMON BLOCKS * 

* $ * * * * * * * * 3 #: * * * ** * 

COMMON /DBL/ DAT I NP ( 1 5 ,60 ) , DATOUT ( 9, 60 ) t WTF< 40 ) , TOPRE S( 40 ) , TOTEMP ( 
140), FAR (40) ,CQPFL0(40),VMACH(40) ,STATP(40) , ERROR (40 ) ,TGL ,TOLT ,TOLT 
2T, CEPV(20),DTGL(20) ,PERPF( 20) 

COMMON /SNGL/ JM1, JM2 , JP1 , JP 2 , JCX , LOCTBL (9 ,60 ) , JCOMP ( 70 ) , I WAY ,NIT , 
1ITAB(70) ,JC0NF(60,4), JTYPE(fcO) , JFLOW( 70) , IDEDAPI 15) ,KKI NOS (14,25) , 
2NC0MP,N0STAT,NITER,NFINIS,NPASS,JCC,NTBL, NCTS , JCIND ( 20) , JCDEP ( 20) , 
3JCVIND( 20) ,JCVDEP( 2 0) ,KDTyp( 20) , I DONE (60) 

COMMON / WMECH/ IWMEC( 7, 60 ) , WATE ( 60 ) , ALENGC 60) ,TLENG(40) ,RI(2,40) ,R 
10( 2,40) ,DESVAL( 15,60) ,DSHAF(5) ,RPMT (60 ) , I WT , IPLT, I ERR , I S I I , IS 10, 10 
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2UTCD »NSTAG(60) 

COMMON /CONVER/ CONVEP(15) 
COMMON /DEFAUL/ DEFAUL ( 15 , 20 ) 
LOGICAL IWT»IPLT,IERR,ISII f ISIO 
NOCEI=JCONF( ICOMPt 1 ) 

NODEO = JCCI\FUCQMP,3) 

WATE( I CGMP )=0 - 
ALENG( ICCMP) =0. 

R0< l,NODEl)=PO< 2, NODE I) 

RI (I, NODE IJ = R I (2, NODE I) 

RO ( 2 » NODEO) =R0( 2 * NODE I ) 

RI (2,N0DE0)=RI(2tN0DEI) 

RETURN 

END 
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SUBROUTINE(FMEC) 

PURPOSE 

THIS ROUTINE CALCULATES THE HEIGHT AND LENGTH 
OF FIXED OR ROTARY HEAT EXCHANGERS. 

CALLING ROUTINES 

REQUIRED SUBROUTINES 
DUCT 

MODIFICATION HISTORY 

DATE ID ANALYST DISCRIPTICN 


AUTHOR /LANGUAGE/ DATE 

E. GNAT , R. J. PERA/FORTRAN IV/ 01 04 77 


GLOSSARY 


NAME 

ORIGIN 

USAGE 

DISCRETION 

ICOMP 

ARG 

I/O 

COMPONENT NUMBER 

TSCA 



MATERIAL SCALER 

IDES 



DESVAL/OEFAUL INDICATOR 

NODEIP 



INLET OF PRIMARY 

NODEI S 



INLET OF SECONDARY 

NCDEOP 



OUTLET OF PRIMARY 

NODEOS 



OUTLET OF SECONDARY 

TAI 



SECONDARY INLET TEMP 

TAO 



SECONDARY EXIT TEMP 

TEI 



PRIMARY INLET TEMP 

TEO 



SECONDARY EXIT TEMP 

PA I 



PRIMARY INLET PRESS 

PEI 



SECONDARY INLET PRESS 

WAA 



SECONDARY AIR FLOW 

WAE 



PRIMARY AIR FLOW 

FAA 



SECONDARY F/A 
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C 

FAE 

PRIMARY F/A 

C 

CNT 

NUMBER OF TUBES 

c 

AMA 

SECONDARY MACH NUMBER 

c 

AME 

PRIMARY MACH NUMBER 

c 

T AAV 

SECONDARY AVERAGE TEMP 

c 

TEAV 

PRIMARY AVERAGE TEMP 

c 

AA1 

SECONDARY AREA 

c 

AE1 

PRIMARY AREA 

c 

VISA 

SECONDARY FLOW VISCOSITY 

c 

VISE 

PRIMARY FLOW VISCOSITY 

c 

REA 

SECONDARY REYNOLDS NUMBER 

c 

REE 

PRIMARY REYNOLDS NUMBER 

c 

CKA 

CP*K FOR THE SECONDARY 

c 

CKE 

CP*K FOR THE PRIMARY 

c 

DTI 

DELTA TEMP INLET 

c 

DT2 

DELTA TEMP FOR EXIT 

c 

APEQ 

REQUIRED AREA 

c 

HL 

LENGTH 

c 

RFC 

MATERIAL DENSITY 

c 

STR 

REFERENCE STRESS 

c 

WT 

TOTAL WT 


c 

c 

SUBROUTINE HMEC (ICCMP) 

REAL *8DATINP,DATOUT,WTF,TOPRES,TOTEMP,FAR,CORFLO,VMACH,STATP,ERRO 
1P,TOL,TOLT,TOLTT,DEPV,DTOL,PERPF 

%**%*&*$***%■#*#■&* 

* COMMON BLOCKS * 

COMMON /DBL/ DAT I NP ( 1 5 , 60 » , DATOUT ( 9, 60 > , WTF( 40 ) , TOPRE S( 40 ) ,TOTEMP( 
140 ), FAR (40) ,CORFL0(4O),VMACH( 40 ) ,STATP(40) , ERROR (40 ) ,TOL,TOLT ,TOLT 
2T, DEPV(20),DT0L(20) ,PERPF<20) 

COMMON /SNGL/ JM1 , J M2 , JP1 , JP2 , JCX , LOCTBL (9 ,60 ) , JCOMP( 70 ) , IWAY,NIT, 
1ITAB(70), JCONF ( 60 1 4 ) , JTYP E( 60 ) , JFLOW( 70) , IDEDAPt 15 J ,KKINDS (14,25 ) , 
2NC CMP, NOSTAT, NITER, NF INIS, NP ASS, JCC,NTBL,NCTS,JC IND (20) ,JCDEP( 20) , 
3JCVIND(20) , JC VDEP( 20) ,KDTYP(20) ,ID0NE(60) 

COMMON /WMECH/ IWMECi 7, 60 ) ,WATE(60 ) , ALENG( 60) , TLENG(40) ,RI (2,40) ,R 
10( 2,40) ,DESVAL(15,60) ,DSHAF(5) , RPMT(60 ) , I WT, I PLT , I ERR , I SI I , IS 10, 10 
2UT CD, NST AG (60 ) 

COMMON /CQNVER/ C0NVER(15) 

COMMON /DEFAUL/ DEFAUL( 15,20) 

LOGICAL IWT,IPLT,IERR,ISI I.ISIO 

INITIALIZE INPUTS 

IDES= 1 

IF ( IOUTCD.GT.l) WRITE (10,160) IWMEC ( 1 , ICOMP ) , ICOMP , IOUTCD 
NODEI P= JCONF ( ICOMP, 1) 

NODEIS=JCONF( ICOMP, 2) 

NODEOP= JCONF ( ICOMP, 3) 

NO DEO S=JCONF ( I COMP ,4) 

TA I-T OTEMP(NODEIS) 

TAC=TGTEMP( NOD EOS) 
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TEI=TCTEMP(NGDEIP) 

TEO=TGTEMP( NODEOP J 
PAI=TGPRES(NODEIS) 

PEI=TOPRES(NQDEIP) 

WAA=WTF{ NODE I S ) 

WAE=WTF(NODEIP) 

FAA=FAR ( NOD El S) 

FAE= FART NODE-I-P) 

C 

C LOAD DESVAL INPUTS 
C 

IF (IWMEC(2,ICCMP).EQ.2) GO TO 40 
IF (DESVAL ( 1 » ICOMP) .EQ.O. ) IDES=2 
GO TO (10,20) , IDES 
10 CNT^DESVAL ( 1, ICOMP) 

AMA=CESVAL ( 2 » ICOMP) 

AME=DESVAL(3, ICOMP) 

GO TO 30 

20 CNT =DEFAUL(1,15) 

AMA=DESVAL<2,15) 

AME-DESVAL(3,15) 

30 CONTINUE 

C 

C AVERAGE TEMP AND REQUIRED AREA CALCULATIONS 
C 

TAAV=(TAI+TA0)*.5 
TEAV=(TEI+TE0)*.5 
AA 1=AMA 
AE1=AME 

CALL DUCT (TAAVtPAI ,WAA ,A A1 , FAA, AMAt PS A, VA, IS 10, 1 P ) 

CALL DUCT (TEAV,PEI ,WAE , AE 1, FAE, AME , PSE , VE , I SIO , I P) 

C 

C TUBE AREA AND DIAMETER CALCULATIONS 
C 

DIAM=12.*SQRT(4./3.1416*( AA1+AE 1 ) ) 

AAT=AA1/CNT 

AET=AE1/CNT 

DAT=SQRT( AAT/3. 1416*4.) 

DET=SQRT(AET/3. 1416*4.) 

C 

C FLUID VISCOSITY AND REYNOLDS NUMBER CALCULATIONS 
C 

VI SA= . 02+. 0G00455*T AAV 
VISE= .02+.0000455*TEA V 
REA=PAI/VISA*VA/53.54*DAT/TAAV*3600. 
REE=PEI/VISE*VE/53.34*DET/TEAV*3600. 

CKA=.000025*TAAV 
CKE=.000025*TEAV 
HA=CKA/DAT*.022*REA**.8 
HE=CKE/DET*. 022*REE**.8 
C 

C DELTA TEMPERATURE CALCULATIONS FOR PARALLEL AND COUNTER FLOW 
C 

DT 1=ABS(TEI-TAG) 

DT2=ABS (TEO—T A I ) 

IF ( IWMEC(3,IC0MP)-EQ.l) DT1=ABS( TEI-TAI ) 
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IF ( IWMEC(3t ICOMP). EQ.l) DT2=ABS( TEO-TAC) 

IF ( ABS (DT1-DT2) .LT..1) DTl=DT2+.l 
DTM=( DT1-DT2) /ALOG ( DT 1/DT2 ) 

REQUIRED Q, TOTAL AREA, LENGTH AND WEIGHT CALCULATIONS 

QOA=DTM/< l./HA+l./HE) 

HA0=STHERM(4,TA0,FAA) 

HA I = S THERM (4,TAI ,FAA) 

Q=ABS ( WAA*(HAG— HAI ) ) 

AREQ=Q/QQA*3600. 
hL=AR EQ/3. 14 16/DAT /CNT 
HL I=HL*12 « 

DET1=DET*12. 

DAT1=DAT*12. 

RHG=. 168 
ST R=50000 • 

IF (TAI. GT. 1160.. OR. TEI.GT. 1160.) RH0=-286 
IF (TAI. GT. 1160.. OR. TEI .GT. 1160.) STR=70000. 
THICE=PEI*DETl/2./STR 
THICA=PAI*DIAM/2./STR 
IF (TFICE.LT. .01) THICE= .01 
IF (THICA.LT. .01) THICA=.01 

WT =HL 1^ 3 . 141 59* ( DET 1*TH I C E*CN T+DI A M*TH I CA ) *RHO 
WTT=2.*WT 
WATE( ICOMP )=WTT 
AL ENG( ICOMP ) = HL1 
IF ( I OUTCD.NE. 2) RETURN 
IF ( .NOT . IS 10 ) GO TO 140 
HL1=HL1*CCNVER(1) 

AREQ=AREQ*C0NVER(4) 

DAT1 = DAT,1*C0NVER<1 ) 

DET1=DET1*C0NVER( 1) 

WT T=WTT*C0NVER(3) 

DIAM=DIAM*C0NVER(1) 

VA=VA*CQNVER( 2) 

VE=VE*CCNVER(2) 

GO TO 140 

40 IF (DESVAL(4, ICOMP) .EQ.O) IDES=2 

GO TO (50,60) tIDES 

50 BPR=DESVAL(4, ICOMP) 

GO TO 70 

60 BPR=0 . 

70 CONTINUE 

DELTP=DAT0UT(1, ICOMP) 

EFF=DATOUT (4, ICOMP) 

WC P= CORF LO(NODEIP)/ 1.54572555 
WCS=CORFLO(NODEIS)/ 1.54972555 
IF (TEI.GE.TAI) WSCA=WCP 
IF (TEI.LT.TAI) WSCA=WCS 
IF (DELTP.GE..1) GO TO 100 
IF (EFF.GE..50) GO TO 90 
IF ( EFF.GE..85) GO TO 80 
WTT=( 703. 8-10. 5*BPR)*WSCA/200. 

GO TO 130 

80 WTT=( 1040.-19. 5*BPR )*W$CA/200. 
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GO TO 130 

50 WTT=(1745.-44.1*BPP )*W$CA/200. 

GO TO 130 

100 IF (EFF.GE..901 GO TO 120 

IF (EFF.GE..85) GO TO 110 

WTT=( 577.8-lt>.0*BPR )*WSCA/200. 

GO TO 130 

110 WTT= (754. 5-19. 6*BPR )*WSCA/200. 

GO TO 130 

120 WTT=( 1275.-27. 8*BPR)*WSCA/200. 

130 WATE( ICCMp)=WTT 

IF ( IOUTCD.NE .2) RETURN 
IF ( .NOT . IS 10 ) GO TO 150 
WTT=WTT*C0NVER(3) 

GO TO 150 

140 WRITE (10,170) 

WRITE (10,180) HL1 , AR EQ ,DAT1 ,DET1 
WRITE (10,190) 

WRITE (10,200) XMA,X«E,WTT,DI AM 
WRITE (10,210) 

WRITE (10,220) VA,VE,REA,REE,CNT 
RETURN 

150 WRITE (10,230) 

WRITE (10,240) WTT 
RETURN 
C 

160 FORMAT ( 1H /14H ************* /14H * */4H * ,A4,I3,3H * 

1/1 4H * */ 13h ************ ,11) 

170 FORMAT (32H LENGTH AREA DIM A DIM E) 

180 FORMAT ( 2F8. 1 , 2F 8.4, / ) 

190 FORMAT (30H M A ME WT DIAM) 

200 FORMAT ( 2F 8. 3 , 2F 8 . 1 , / ) 

210 FORMAT (39H VA VE RE A RE E TUBES) 

220 FORMAT (5F8.0) 

230 FORMAT ( 13H R HEX WEIGHT) 

240 PCRMAT (F9.1) 

END 
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C****JM=**#* ************ ***************************************** ******** 
SUBROUTINE! VALVWT) 

PURPOSE 

THIS ROUTINE CALCULATES THE WEIGHT AND LENGTH 
OF AIV. 

CALLING ROUTINES 


REQUIRED SUBROUTINES 


STHERM 

DICT1 

MODIFICATION HISTCRY 


DATE ID ANALYST DISCRETION 


AUTHOR /LANGUAGE/DATE 


E. ONAT , R. J. PERA/FOPTRAN IV/ 01 04 77 


GLOSSARY 


NAME 

ORIGIN 

USAGE 

DISCRIPTION 

ICGMP 

ARG 

I/O 

COMPONENT NUMBER 

TSCA 



MATERIAL SCALER 

IDES 



DESVAL/DEFAU1 INDICATOR 

NGDEI I 



INLET OF INNER 

NCDEIO 



INLET OF OUTER 

NC-DEOI 



OUTLET OF INNER 

NCDEOO 



OUTLET OF OUTER 

NCOM 



OPPOSITE DUCT 

SPL 



SPECIFIC LENGTH 

PN 



NUMBER OF PASSAGES 

AMI 



MACH INNER 

AMC 



MACH OUTER 

RF 



HUB RADIUS INNER 

RTIC 



TIP RADIUS INNER 

RHOC 



HUB RADIUS OUTER 

RTCC 



TIP RADIUS OUTER 
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c 

WTSI 

INNER CYC WT/FT**2 

c 

WTSO^ 

OUTER CYC WT/FT**2 

c 

WT SW 

WALL WT/FT**2 

c 

TTI 

TEMPERATURE INNER 

c 

TTO 

TEMPERATURE OUTER 

c 

PI 

PRESSURE INNER 

c 

PO 

PRESSURE OUTER 

c 

WAI 

AIRFLOW INNER 

c 

WAO 

AIRFLOW OUTER 

c 

FA I 

FUEL/AIR INNER 

c 

FAC 

FUEL/AIR OUTER 

c 

GI 

GAMMA INNER 

c 

C-0 

GAMMA OUTER 

c 

AI 

AREA INNER 

c 

AC 

AREA OUTER 

c 

WT IC 

INNER CYC WT 

c 

WTOC 

OUTER CYC WT 

c 

WTWALL 

WALL WT 

c 

WATC 

ACTUATOR WT 

c 

WTOT 

TOTAL WT 

c 

TLENG 

LENGTH 


C 

c 

SUBROUTINE VALVWT (ICOMP) 

REAL *8DATINP,DAT0UT, WTF, TORRES, TOT EMP, FAR, CORFLO, VMACH , STATP , ERRO 
1R,T0L,T0LT,T0LTT,DEPV,DT0L,PERPF 

* COMMON BLOCKS * 

COMMON /DBL/ DATINP ( 15 ,60) ,DATOUT( 9 ,60 ) ,WTF(40) ,TOPRES (40 ) ,TOTEMP ( 
140 ) , FAR (40) ,CORFLO(40 ),VMACH(40) ,STATP(40) ,ERR0R(40) , TOL , TOLT , TOLT 
2T,DEPV( 20) ,DTOL( 20) ,PERPF(20) 

COMMON /SNGL/ JM1 , J M2 , JP 1 , JP 2, JCX, LOC TBL ( 9 ,60 ) , JCOMP( 70 ) , I WAY , NI T , 
1ITAB( 70) ,JC0NF(60,4), JTYPE(60 ) ,J FLOW (70), I DEDAP ( 15 ) ,KKINDS ( 14, 25 ) , 
2NC0MP ,N0STAT,NITER,NFINIS,NPASS,JCC,NTBL,NCTS,JCIND(20) ,JCDEP(20) , 
3 JCVI ND ( 20 ) » JCVDEP(20) ,KDTYP( 20 ) , IDONE (60 ) 

COMMON /WMECH/ IWMEC(7,60) ,WATE(60) , ALENG(60) , TLE NG (40 ) , R I (2 ,40 ) , R 
10(2,40) ,DESVAL( 15,60) , DSHAF( 5 ) , PPMT ( 60 ) , I WT, IPLT, I ERR ,1 SI I ,ISIO,IO 
2UTCD , NSTAG ( 60) 

COMMON /CONVER/ C0NVER(15) 

COMMON /DEFAUL/ DEF AUK 15 , 20 ) 

LOGICAL IWT,IPLT,IERR,ISI I ,ISIO 

INITIALIZE INPUTS 

IF ( IWMEC(3, ICOMP). LT.O) RETURN 
TSCA=1. 

IDES= 1 

IF ( IOUTCD.GT.l ) WRITE (10,100) I WMEC ( 1 , 1 COMP ) , ICOMP, IOUTCD 
IF ( IWMEC(2,IC0MP)-EQ-2) GO TO 10 
NOOt I I=JCONF ( ICOMP, 1) 

NODEGI=JCONF ( ICOMP , 3) 

NC0M=IWMEC<3, ICOMP) 
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NODE I G=JCONF ( NCOM, 1) 

NOOEOOJCONF(NCCM,3 ) 

GO TO 20 

10 NGDEIC=JCONF(ICCMP, 1) 

NODEOC=JCONF( IC0MP,3) 

NCOM- IWMEC (3, ICOMP) 

NODEI I = JCONF ( NC 0M» 1 ) 

N0DEI0=JC0NF(NC0M,3) 

20 IWMEC (3,NC0M)=-IC0MP 

IF (DESVALt 1, ICOMP) .EQ.O. ) IDES=2 
GO TO (30, 50), IDES 
C 

C LOAD DESVAL INPUTS 
C 

30 SPL=DESVAL(1, ICOMP) 

PN=DESVAL(2, ICOMP) 

AMI =DESVAL(3, ICOMP) 

AM0=DESVAL<4, ICOMP) 

IF (DESVAL(5,ICCMP) .EQ.O.) RH=R I ( 2, NODE II ) 

IF (DESVAL<5, ICOMP) .GT.O. ) RHODES VAL ( 5 , ICOMP) 

IF USII. AND. DESVALC5, ICOMP), GT.O.) RH=RH/CQNVER( I) 
IF (DESVAL(5,ICCMP) .LT.O. ) IRH=ABS( D ESVAL ( 5 , ICOMP ) ) 
IF (DESVAL(5, ICOMP) .LT.O.) RH=RI(2,IRH) 

IRH0=1 | 

IF (DESVAL(6, ICOMP). EQ.O.) IRH0=2 
TTI=TCTEMP(NGDEII) 

TTO=T OTEMP(NODEIO) 

IF ( IRHC.EQ.2) GO TO 40 
WTSI=DESVAL(6, ICOMP ) 

WTSQ=DESVAL(7, ICOMP) . 

WTSW=DESVAL<8, ICOMP) 

IF ( .NOT. ISII ) GO TO TO 
WT SI=WTS I/CONVERC 7 ) 

WT S0= WTSO/CONVER ( 7 ) 

WTSW=WTSW/C0NVER<7) 

GO TO 70 
40 WT SI= 1. 1 

WT S0=1 • 1 
WTSW= 1.1 

IF (TTI. GT. 1160.. OR. TTO.GT. 1160.) TSCA=1.7 
GO TO 70 
C 

C LOAD DEFAUL INPUTS 

C 

50 SPL=D£FAUL(1» 17) 

PN=DE FAUL (2,17) 

AMI=DEFAUL(3,17) 

AM0=DEFAUL(4,17) 

IF (DEFAUL(5, 17) .EQ.O.) RH=RI (2, NODEI I ) 

IF (DEFAUL(5, 17) .GT.O.) RH=DEFAUL( 5,17) 

IF (ISII. AND. DEFAUL (5,17). GT.O.) RH=RH/CONVER( 1) 

IF (DEFAUL(5,I7) .LT.O.) IRH=ABS(DEFAUL( 5, 17) ) 

IF (DEFAUL(5,17).LT.O.) PH=RI(2,IRH) 

IRHO= 1 

IF (DEFAULI6, 17) .EQ.O.) IRH0=2 
TT1=TCTEMP(NCDEII) 
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TTC=TCTEMP(NODEIO) 

IF (IRH0.EQ.2) G0 TO 60 
WTSI=DEFAUL(6,17J 
WT SO=DEFAUL( 7 » 17) 

WTSW=DEFAUL<8,17) 

IF { .NOT.ISII ) GO TO 70 
WTSI = WT$I/C0NVER(7) 

WTSO=WTSO/CONVER(7) 

WTSW= WTS W/CONVER( 7) 

GO TO 70 
60 WT S I = 1 • 1 

WT S0= 1.1 
wy 1 ® 1 

IF (TTI. GT. 1160. .OR. TTG.GT. 1160.) TSCA=1.7 
C 

C DETERMINE DUCT ARES 

C 

70 PIE=3. 1415926 

WAI=WTF(NODEII) 

WAO=WTF( NODEIO) 

PI=T0PRES (NOD El I )*144. 

PO=TOPRES ( N0DEI0)#144. 

FA 1= FAR (NODE 1 1 ) 

FAC=F AR(NCDEI 0 j 
GI=STHERM< 5»TTI»FAI 1 
G0=STHERM(5 »TTO» FAO) 

A 1=0. 

A0=0 • 

CALL 0UCT1 <TTIiPI,WAI»GIf AMI f AI) 

CALL 0UCT1 (TTOtPO, WAO, GO, AMO, AO) 

AA=(AQ+AI ) /2 • 

C 

C DETERMINE VALVE DIMENSIONS AND WEIGHTS 

C 

RT IC= SQRT ( AI /P I E* 144. +R H**2) 

RHOC=PTIC 

RTGC=SQRT ( A0/P3 E*144. +RH0C>*2 J 
VLENG=SPL*SQRT(4.*AA/PIE*144. ) 

RMEAN=SQRT ( AA/PI E*144 • +RH**2 ) 

WT IC= 2 .*PI E*RH#VLENG*WTSI / 144. *T SC A 
WTCC=2.*PIE*RT0C*VLENG*WTS0/144.*TSCA 

WTWALL=(3.927*PMEAN+1.25*PN*( RTQC-RH) )*VLENG*WTSW/144.*TSCA 

WTOT=WTIC+WTOC+WTWALL 

WACT=0. 

IF ( IWMEC(4,IC0MP) .EQ.O) GO TO 80 
WACT=ol*WTCT 

IF (WACT.LT.10. ) WACT=10. 

IF (WACT.GT .40. ) WACT=40. 

WTOT= WTQT + WACT 
C 

C STORE WEIGHTS AND DIMENSIONS 

C 

80 WATE( ICOMP i = WT0T/2 . 

WATE(NCCM)=WTQT/2. 

AL ENG( ICOMP ) = VLENG 
AL ENGCNCOM )=VLENG 
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R I (1 1 NODE 1 1 ) = RH 
RO (1? NODE 1 I ) =RTI C 
RI(l,NODEIO)=RHIC 
R0(1, NGDEIC)=RTGC 
R I (2,NODEOI)=RH 
R0(2,N0DE0I)=RTIC 
RI ( 2 , NOD EDO) =RHGC 
RC(2,NGCEQ0)=RT0C 
IF (IQUTCD.LE.il RETURN 

WRITE OUTPUT 

IF ( .NOT . ISIOI GO TO 90 
RH=RH#CCNVER ( I I 
RTIC=RTIC#CONVER( 1) 

RHCC=RHCC*CONV£R ( 1 ) 

RTCC = RT CC*CONVER ( 1 ) 

VLENG=VLENG*C0NVER<1) 

A I =AI*CCNVER(4) 

A0=A0*C0NVER(4) 

RMEAN=RNEAN*CONVER (1) 

WT IC = WTI C#CONVER { 3 ) 

WTOC=WTCC#CONVER( 3 1 
WTWALL=WTWALL*C0NVER(3) 

WACT=WACT*C0NVER(3) 

WTCT=WTCT*C0NVER{3) 

90 WRITE (10,110) PH,RTIC ,RflOC,PTOC,VLENG,AI ,A6,RMEAN 
WRITE (10,120) WTIC ,WTOC , WTWALL , WACT , WTQT 
RETURN 
C 

100 FORMAT (1H /14H *************/ 14H * */4H * ,A4,I3,3H * 

1/14H * #/13H v*##****#*** j I 1 ) 

110 FORMAT { / , 6H RHUB= , 2X , F6 . 2 , 5X , 6H RT I P= , 2X , F6. 2 , 5X , 7h RHOUT=, IX , F6. 
12, /, 7H RTCUT =,1X,F6.2,5X,6H LENG=, 2X,F6.2,5X,TH AREAI = , IX , F6. 1 , / , 7 
2H AR EAO = , IX, F6. 1 , 5X,7H RMEAN= , IX, F6. 2 ) 

120 FORMAT (/,13H WT INNER CYC , 3X , F6 . 1 , 5X , 12HWT OUTER CYL , 3X, F 6. 1, / , 12 

1H WT OF WALLS, 3X, F6 . 1 ,5X , 1 OH WT OF ACT , 5X , F6. 1 , / , 15 H TOTAL VALVE W . 
2T, 3X,F6.i) 

END 
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